ДО 23:00! Написать программу на языке программирования Паскаль, с которой можно вычислить значение выражения y = для любого вводимого с клавиатуры числа x.
Ребят, те кто одна распишите все, ок?

var x,y:real;

begin

readln(x);

y:=(2-sqr(3-x))/(sqr(x-3)+4);

writeln(y);

end.

Объяснение:

var

mas : array[1..15] of integer;

i: integer;

begin

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

end;

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.