составить программу ** паскале:) Имеется четыре A,B,C,D произвольных числа.ЭВМ должна...

Question

составить программу на паскале:) Имеется четыре A,B,C,D произвольных числа.ЭВМ должна ответить на вопрос: Правда ли что первое число самое большое ,а последнее самое маленькое? Ответ ЭВМ должна вывести в виде текста-"Правда" или "Неправда"

Answer 1

program mdd;
uses crt;
var A,B,C,D:longint;
begin
clrscr;
ReADLN(A,B,C,D);
IF (A>B) AND (A>C) AND (A>D) AND (DeLSe WRITeLN(''Неправда);
ReADKeY;
eND.