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

Question

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

sirius2010 · Answer

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.