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

Question

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

Answer 1

Program z1;

uses CRT;

var y,x:real;

begin

clrscr;

Writeln('x=');

Readln(x);

y:=2*x+1;

Writeln('y=',y);

Readkey;

end.

Answer 2

Var x,y:integer;
begin
Read(x);
Y:=2x+1;
Writeln(y);
End.