Question

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

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.