Задание4. Калорийность обеда

Question

Информатика

Павлуса

17 февраля, 04:20

Задание4. Калорийность обеда

+3

Ответы (1)

Знаете ответ на вопрос?

Венюша · Answer 1

uses crt;

var

t1: boolean;

a, b, c: real;

begin

writeln (' Калорий в обеде = ') ;

readln (a) ;

writeln ('Норма калорий = ') ; readln (b) ;

if (a>=b) then t1: = true else t1: = false;

writeln (t1) ;

readkey;

end.