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

Cześć!!
Jeżeli chodzi o zadanie 2
program repeat1;

var
ch:char; i:integer;
begin
i:=0
repeat
writeln;
writeln('Wcisnij klawisz k, jesli chcesz zakonczyc');
readln(ch);
i:=i+1;
until(ch='k');
writeln('Pętla była wykonana ',i,' razy')
end.

Powinno działać

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

To też powinno działać
Jakznajdę chwilę czasu to spojrzę na ten pierwszy program, ale w zamian mam prośbę pomóż mi znaleźć odpowiedzi do kursu fundamentals of unix!!
To jest dla mnie bardzo ważne