Ребята помогите(не срочно)
Информатика паскаль 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   beginreadln(a);if (a <> 10) then writeln('Неправильно!');if (a = 10) then writeln('Молодец!');end;end.