Pascal 6 урок

Сравните число 8 и число 9.55, выведите результат сравнения на экран.

begin
   writeln(8>9.55, ' ', 8<9.55);
   readln()
end.

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

var a : integer;
    b : real;
begin
   writeln('enter an integer number a');
   readln(a);
   writeln('enter an real number b');
   readln(b);
   writeln(a<b);
   readln()
end.

Даны два целых числа: A и B. Проверить истинность высказывания: «Сумма чисел Число A и число B больше 12».

var a, b : integer;
    c : real;  // summa chisel
begin
   writeln('enter an integer number a');
   readln(a);
   writeln('enter an integer number b');
   readln(b);
   writeln('summa chisel bolshe 12 ', a + b>12 );
   readln()
end.

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».

var a, b, c : integer;
    b1, b2 : boolean;
begin
   read (a, b, c);
   b1 := (a > b) and (a < c);
   b2 := (a > c) and (a < b);
   write('chislo A nahoditsia mejdu b i c - ', b1 or b2 );
   readln();
end.

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7».

var a, b, c : integer;
begin
   writeln('enter an integer number a');
   readln(a);
   writeln('enter an integer number b');
   readln(b);
   writeln('enter an integer number c');
   readln(c);
   write('chislo A i B bolishe 17 - ', (a>17)or(b>17)  , ' chislo C bolishe 7 - ', c>7 );
   readln();
end.

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

var a, b, c, d : integer;
begin
   writeln('enter four numbers');
   readln(a, b , c ,d);
   write((a>c)or(b<4) );
   readln();
end.