Question

Найти сумму трёх целых чисел. использовать цикл с предусловием Срочноооооо!!!

Answer 1

Var
a,i,r:byte;
begin
i:=1;
while i <= 3 do begin
readln(a);
r:=r+a;
i:=i+1;
end;
writeln(r);
end.