Задание:
Задание 4. Калорийность обеда
Решение:
uses crt; vart1: boolean; a, b, c: real; beginwriteln (' Калорий в обеде='); readln (a); writeln ('Норма калорий='); readln (b); if (a>=b) then t1: =true else t1: =false; writeln (t1); readkey; end.
Знаете другой ответ?