Доработать программы:сделать контроль ввода пользователем(если пользователь 3 раза...

Question

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


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

Comments

Буквы

---

Спасибо

---

Я дальше не могу, после переменных, не получается цикл составить

---

Так лучше? :D

---

Да, на .net норм

Answer 1

// 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 6
64

Введите через пробел А и N: 2 3,5
Введите через пробел А и N: 2 3.5
Введите через пробел А и N: 2 a
Вы ошиблись трижды. Программа завершена

Comments

Спасибо

---

Огромное