Question

составить программу(паскаля) по формуле y=x/3+2

Answer 1

program urav;
var x,y:real;
begin
writeln('Введите Х ');
read(x);
y:=x/3+2;
writeln('Y равен ',y);
end.

Answer 2

program zadanie1;

var x,y:integer;

begin

writeln("vvesti y="); readln(y);

writeln("vvesti x="); readln(x);

y:=x/3+2

readln

end.