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

Question

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

Comments

Нужно составить программу?

---

Да

---

И какое число должно быть больше или равно нулю?

---

Число а

Answer 1

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.

Comments

Спасибо большое)