Доработать программы:сделать контроль ввода пользователем(если пользователь 3 раза ошибается-программа закрывается)
program For16;
var
A,Rez:Real;
N, i :Integer;
begin
Write('Введите A: ');
Readln(A);
Write('Введите N: ');
Readln(N);
Rez:=1;
For i:=1 to N do
begin
Rez:=Rez*A;
Writeln(Rez);
end;
end.


Помогите пожалуйста