Помощь в Pascal ABC

Что надо написать что бы происходила проверка исходных данных после их ввода?
http://i79.fastpic.ru/big/2016/0424/94/f3fc58badc9e6fcf7f34ece7fda8c294.png
"P.s. картинка слишком большая"
В данный момент программа выглядит так:

Код:

program P5_2;
uses crt;
var
  a, b, c, x, y: real;
begin
  writeln('Введите a: ');
  readln(a);
  writeln('Введите b: ');
  readln(b);
  writeln('Введите c: ');
  readln(c);
  x := power((2 * a * b - 1), 2) / c + 5;
  writeln('x:=power((2*a*b-1),2)/c+5');
  writeln('x:= ', x:0:3);
  y := power(x, 4) - 4 * sqrt(power(b, 3) - 1);
  writeln('y:=power(x,4)-4*sqrt(power(b,3)-1)');
  write('y:= ', y:0:3)
end.

 

Ну держи:

Код:

program P5_2;uses crt;
var
  a, b, c, x, y: real;
begin
  writeln('b должнен быть строго больше 1. c не должен быть равен -5.');
  writeln('Введите a: ');
  readln(a);
  repeat begin 
  writeln('Введите b: ');
  readln(b); 
  end;
  until b>1;
  repeat begin 
  writeln('Введите c: ');
  readln(c);
  end;
  until c=-5;
  x := power((2 * a * b - 1), 2) / c + 5;
  writeln('x:=power((2*a*b-1),2)/c+5');
  writeln('x:= ', x:0:3);
  y := power(x, 4) - 4 * sqrt(power(b, 3) - 1);
  writeln('y:=power(x,4)-4*sqrt(power(b,3)-1)');
  write('y:= ', y:0:3);
end.

 

Ок, спасибо