Добавить защиту от дурака (на ввод букв вместо цифр) - Pascal ABC

Формулировка задачи:

помогите, пожалуйста сделать защиту от дурака, чтобы если вместо ввода чисел будут введены буквы, программа выдавала сообщение о том, что стоит повторить попытку. до тех пор,пока не будут введены цифры.
Program lrp;
var a,b,c,x1,x2,x3,x4,t1,t2,D:real;
begin
writeln('Программа решает биквадратное уравнение');
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
D:=b*b-4*a*c;
if d<0 then writeln('уравнение не имеет решений') else
 begin
 t1:=(-b+sqrt(d))/(2*a);
 t2:=(-b-sqrt(d))/(2*a);
 if (t1<0) and (t2<0) then writeln('уравнение не имеет решений') else
 begin
  if t1>=0 then
   begin
    x1:=sqrt(t1);
    x2:= -sqrt(t1);
    write('ответ: ',x1,'; ',x2,';');
   end;
  if t2>=0 then
   begin
    x3:=sqrt(t2);
    x4:= -sqrt(t2);
    writeln(x3,'; ',x4,'.');
   end;
  end;
end;
end.

Код к задаче: «Добавить защиту от дурака (на ввод букв вместо цифр) - Pascal ABC»

textual
var s:string;
a:real;
k:integer;
begin
Writeln('Введите число: ');
Readln(s);
val(s,a,k);
if (k<>0) then
begin
repeat
Writeln('Povtorite');
Readln(s);
val(s,a,k);
until (k=0);
end;
Writeln('Число=',a);
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ