Question

Даны действительные числа A, B, C. Проверить, выполняются ли неравенства A<B<C, если да, то, присвоить A=B+C, иначе A=C-B. Напишите как это должно выглядеть в Pascal'е .

Answer 1

Program gt;
var A,B,C:real;
begin
readln(A,B,C);
if(A<B)and(B<C)then A:=B+C else A:=C-B;
writeln(A,' ',B,' ',C);
end.