Zadania w Pascalu

Może ktoś wie jak zrobić te zadania. Dal nie których mogą być banalne, ale dla mnie. Ja dipiero zaczynam programowanie.

zadanie1. Napisać program, ktory sprawdza, czy liczba 'n'
podana z klawiatury jest kwadratem innej liczby naturalnej,
tzn, czy istnieje taka liczba naturalna 'k', że n= k2

zadanie2. zmodyfikowac go tak, by liczyl ile razy powtarzana byla petla 'repeat...until'}

program repeat1;

var
ch:char;
begin
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch)
until(ch='k');
end.

zadanie 3. zmodyfikowac go tak, by zwracal zarowno iloczyn, jak i sume podawanych liczb

program iloczn1;
var
loczyn,ostatnia,i,ilosc:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
ostatnia:=1;
for i:=1 to ilosc do
begin
write(' Podaj kolejna liczbe: ');
readln(ostatnia);
iloczyn:=iloczyn*ostatnia;
end;
writeln('iloczyn wczytanych liczb wynosi', iloczyn);
writeln;
writeln;
writeln(' wcisnij ');
readln;
end.

z góry dzięki