Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A

program zz1;

var a, b, c, p:real; / /задаем переменные не целого типа

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

write ('введите третье число '); / /вводим с клавиатуры третье число

read (c);

If (a < b) and (b < c) / / проверяем, если выполняется неравенство A
Then a:=b + c / / присваиваем в переменную а значение первого выражения

Else a:=c - b; / / иначе, присваиваем в переменную а значение другого выражения

Writeln (' Полученный ответ = ', a); / / выводим ответ

END.