Урок 6 Задача 14

Урок 6 Задача 14

Пользователь вводит четыре числа, проверьте, что первое больше третьего и при этом (одновременно второе меньше четвертого).

var a,b,c,d:integer;
  b1:boolean;


begin
  readln(a,b,c,d);
  writeln('chisla a = ',a);
  writeln('chisla b =',b);
  writeln('chisla c =',c);
  writeln('chisla d =',d);
  b1:= (a>c) and (b<d);
  writeln(b1);
  readln();
  end.          

Консоль:

4 2 1 8
chisla a = 4
chisla b =2
chisla c =1
chisla d =8
TRUE