var
ball: real;
begin
writeln('Введите :');
readln(ball);
if ball >= 4 then begin
writeln('Хорошо');
end
else begin
writeln('Плохо');
end;
end.
var
ball: real;
begin
writeln('Введите :');
readln(ball);
if ball >= 4 then begin
writeln('Хорошо');
end
else begin
writeln('Плохо');
end;
end.