Как решить уравнение y=2x+1 в паскале.
За решение дам 24 балла!

Program z1;

uses CRT;

var y,x:real;

begin

clrscr;

Writeln('x=');

Readln(x);

y:=2*x+1;

Writeln('y=',y);

Readkey;

end.