кто знает паскаль?

Да здравствует великий и могучий паскаль!

$ cat zad.pas
function f(x: real): real;
begin
f := (x * x + 3 * x) / (x - 2);
end;
var x, n: real;
begin
write('x= '); readln(x);
write('n= '); readln(n);
writeln('f(', x :3:1, ')= ', f(x) :5:3);
writeln('f(', x + n :3:1, ')= ', f(x + n) :5:3);
writeln('f(', x - n :3:1, ')= ', f(x - n) :5:3);
end.

$ fpc zad.pas
Free Pascal Compiler version 2.4.0 [2010/05/05] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling zad.pas
Linking zad
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
12 lines compiled, 0.2 sec

$ ./zad
x= -1.5
n= 0.2
f(-1.5)= 0.643
f(-1.3)= 0.670
f(-1.7)= 0.597

Не программируй на Паскале !!!Это зло, которое нужно искоренить вообще в уч. завах.

функтион отстой (х: екстендед): екстендед;
бегин
отстой: =(сквр (х) +3*х) /(х-2);
енд;
вар
х, п: екстендед;
бегин
врите ('х=');
реадлн (х) ;
врите ('п=');
реадлн (п) ;
врителн ('ф (',х, ')=',отстой (х)) ;
врителн ('ф (',х+п, ')=',отстой (х+п)) ;
врителн ('ф (',х-п, ')=',отстой (х-п)) ;
реадлн;
енд.
//Вообще вот тебе совет - пас умер, переходи на си. Вообще совести нет у этих ********* которые англ литеры блочат.

СИ++ рулит