На мой взгляд правильными ответами являются пункты 1, 4, 5
Блок-схема - в прилагаемом файле.
Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
Это компьютер-сервер, ответ С
var y,x,z: real;
begin
readln(x,y);
z:=ln(abs((y-sqrt(abs(x)))*(x-y/(x+x*x/4))));
write(z);
end.