(не ) информатика паскаль abc хочу чтобы вот эта штука повторялась когда if< > 10 что написать? writeln ('1. 5+5=? '); readln(a); if a=10 then writeln('молодец'); if a< > 10 then writeln ('неправильно'); и дальше хочу чтобы нужно было еще раз было readln(a)

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.