По паскалю. даны 3 числа,если число больше равно нулю,то у=2х^2,иначе у=3х

var

   a, x, y: Integer;

begin

   readln(a);

   readln(x);

   readln(y);

   if a >= 0 then

       y := 2 * (x*x)

   else

       y := 3*x;

   writeln('x = ', x);

   writeln('y = ', y);

end.