Доработать программы:сделать контроль ввода пользователем(если пользователь 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.


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

Спасибо

Огромное

Пожалуйста)

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017// Внимание! Если программа не работает, обновите версию!begin;  var errs:=0;  var A,N:integer;  loop 3 do    try      (A,N):=ReadInteger2('Введите через пробел А и N:');      var Rez:=1;      for var i:=1 to N do Rez*=A;      Writeln(Rez);      Exit    except      errs+=1    end;  Writeln('Вы ошиблись трижды. Программа завершена')end.ПримерыВведите через пробел А и N: 2 664Введите через пробел А и N: 2 3,5Введите через пробел А и N: 2 3.5Введите через пробел А и N: 2 aВы ошиблись трижды. Программа завершена