program n1;
var x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then
writeln('Значение функции у=', 3*x+2)
else
writeln('Значение функции у=', x*x)
end.
program n1;
var x:integer;
begin
writeln('Введите x');
readln(x);
if x>0 then
writeln('Значение функции у=', 3*x+2)
else
writeln('Значение функции у=', x*x)
end.