Код ниже (также можете свериться со скриншотами):
№1:
var x,y: real;
begin
write('x = ');
read(x);
if (x < 5) then
begin
y:= sqrt(x+25);
end;
if (x = 5) then
begin
y:= 500;
end;
if (x > 5) then
begin
y:= (x/4);
end;
writeln('y = ',y:2:2);
end.
№2:
var x,y: real;
begin
write('x = ');
read(x);
if (x < -1) then
begin
y:= x+2;
end;
if ((x >= -1) and (x < 5)) then
begin
y:= sqr(x+2);
end;
writeln('y = ',y:0:0);
end.
Какая бы не была прекрасная и чёткая система автоматизирования - она может ошибаться. Да, в нынешнем мире она делает это всё реже и реже, но, всё же, она ошибается. Человек должен её контролировать, обезопасить, в первую очередь, себя и себе подобных от её неправильных действий, которые могут навредить. В конце концов эту систему создал человек, а человек, как мы знаем, тоже ошибается и никогда не сотворит идеал (хотя, кто знает). Значит его детище - автоматизированная система управления в данном случае - тоже не может быть идеальной и может ошибаться. Поэтому, конечно, её нужно контролировать.
Таков мой ответ. Он очень субъективен, соглашаться с ним или нет - решать Вам :)
program NoName;
var v:integer;
begin
writeln('Сколько будет 2+2?');
readln(v);
if v=4 then
writeln('Молодец')
else
writeln('Иди повторяй')
end.
У меня всё работает, проверь...