Question

Ребята помогите(не срочно)
Информатика паскаль abc
Хочу чтобы вот эта штука повторялась когда if<>10
Что написать?


WriteLn ('1. 5+5=?');
Readln(a);
If a=10 then writeln('МОЛОДЕЦ');
If a<>10 then writeln ('НЕПРАВИЛЬНО'); и дальше хочу чтобы нужно было еще раз было
Readln(a)

Answer 1

program test;
var  a: integer;
begin 
writeln('5+5= ?'); 
while (a <> 10) do   begin
readln(a);
if (a <> 10) then writeln('Неправильно!');
if (a = 10) then writeln('Молодец!');
end;
end.