Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы