Задание 2. Напишите алгоритм с циклом Repeat, вычисляющий квадраты N чисел, введенных с клавиатуры.
Sqr(i) – вычисление квадрата числа

Задание 3. Напишите алгоритм с циклом Repeat, вычисляющий сумму 10 чисел,
введенных с клавиатуры.
S:=S+i; – накопление суммы чисел (сумматор)

Задание 2

program z2;

var i,n: integer;

begin

write ('n = ');

readln (n);

repeat

write ('i = ');

readln (i);

writeln ('Sqr(',i,') = ',Sqr(i));

n:=n-1

until n=0;

end.

Задание 3

program z3;

var i,n,S: integer;

begin

n:=10;

repeat

write ('i = ');

readln (i);

S:=S+i;

n:=n-1

until n=0;

writeln('S = ',S)

end.