Решение задачи 4 из главы 9

Решение задачи 4 из главы 9

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

program Project4;
var A, B, C : integer;
  result : boolean;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  result := (A > 17) AND (B > 17) AND (C > 7);
  if(result = true) then
  write('A i B bolshe 17, a C bolshe 7. Otvet: da.')
  else
  write('A i B bolshe 17, a C bolshe 7. Otvet: net.');
  readln();readln();
end.
vedro-compota's picture

форматирование веток условного оператора - нет отступов

_____________
матфак вгу и остальная классика =)

program Project4;
var A, B, C : integer;
  result : boolean;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  result := (A > 17) AND (B > 17) AND (C > 7);
  if(result = true) then
      write('A i B bolshe 17, a C bolshe 7. Otvet: da.')
  else
      write('A i B bolshe 17, a C bolshe 7. Otvet: net.');
  readln();readln();
end.