Sqrt() - функция извлечения квадратного корня; подкоренное выражение должно быть >=0. В Вашем случае: 57-0,3*^3 >=0, т.е x <= 5,75
Program gt;
var a,b,c,d,min:integer;
begin
read(a,b,c,d);
min:=a;
if(b<min)then min:=b;
if(c<min)then min:=c;
if(d<min)then min:=d;
writeln(min);
end.
Если там вещественные числа то в var-е вместо integer напиши rel
Мне кажется 2)вообще приемник принимает,а источник дает инфу)