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