Question

Составьте программу по паскаль по блок схеме с while

Answer 1

var r:=1;
begin
while r<>0 do
begin
readln(r);
if r >= 80 then writeln('Да');
else writeln('Нет');
end;
end.