program ocenka; //название программы var a:integer; //целочисленная переменная оценки begin writeln(a); //ввод (с клавиатуры) значения оценки if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 - // ругаем, иначе - хвалим) end.
program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.