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

Question

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

---

Answer 1

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