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

Question

Информатика

Ангела

25 января, 06:44

Задание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.