Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.