Помогу чуток земляку...
Программы очень легкие, школьный курс 100%. У меня дети такие делают.
Легче всего выложить задание, а вы решайте...
1.
program funcia;
var a,b,c,d,y: real;
begin
write ('Vvedite cherez probel a, b, c, d'); read(a); read (b); read (c); read (d);
y:=(2*a+b)*2+c*3/(d-2);
write ('y=',y:6:2);
end.
набирал прямо сдесь.