1)
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.

2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
end.

3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
end.