Вычислить значение функции для введенного с клавиатуры значения аргумента

uses crt;
var x,y:real;
begin
clrscr;
write('x=');readln(x);
if x>=20 then y:=4 //если х равен или больше 20, то у=4
else y:=x*x+x-1; иначе у по формуле
write('y=',y:0:2);
readln
end.

uses crt;
var a,b,x,y,dx:real;
m:byte;
begin
clrscr;
write('a=');readln(a);//=1,2
write('b=');readln(b);//=2,0
write('m=');readln(m);//9
dx:=(b-a)/(m-1);//шаг=0,1
x:=a-dx;m:=0;//отступим на шаг назад, чтоб попасть в последнюю точку
while x<=b do //пока х не равен 2,0
begin
x:=x+dx;//наращиваем х
y:=x-2-sin(1/x);//считаем у
m:=m+1;//считаем точки
writeln('m=',m,' x=',x:0:1,' y=',y:6:3);//все выводим
end;
readln
end.

uses crt;
var a,b,x,y,dx:real;
m:byte;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('m=');readln(m);
dx:=(b-a)/(m-1);
x:=a-dx;m:=0;
while x<b do
begin
m:=m+1;
x:=x+dx;
y:=x-2-sin(1/x);
writeln('m=',m,' x=',x:0:3,' y=',y:6:3);
end;
readln
end.