Помогите написать 3 программы на паскале! 9 класс! SOS!

var a,b:integer; begin readln(a,b); writeln(ord((a mod b=0)or(b mod a=0))); readln end.

var a:integer; begin repeat readln(a) until a< 10; readln end.

var a,b:integer;
begin
randomize; a:=10+random(90);
repeat
readln(b); if a>b then writeln('too few'); if a< b then writeln('too many'); if a=b then writeln('OK!')
until a=b;
readln
end.