Turbo Pascalban hogy kell az alábbi feladatokat megcsinálni?

oszthatóság az hol terület kerület??

Régen volt de:

var a:integer;

b:integer;

begin

writeln('Adja meg az egyik oldalt:');

readln(a);

writeln('Adja meg az másik oldalt:');

readln(b);

writeln('Kerület:',(a+b)*2,'Terület:',a*b);

end.

var a:integer;

begin

randomize(a);

writeln(a);

end.

var a:string;

b:integer;

begin

writeln('adja meg a szöveget');

readln(a)

b:=lenght(a);

writeln(b,'karakter');

end.

remélem hogy jók!!