Информатика 9 класс.( по паскалю) в компьютер вводится 2 числа. если они не равны, то вычислить их произведение, иначе каждое число уменьшить в 2 раза. после этого компьютер должен вывести результат и сообщение решена.

Program lol(input, output);
var x, y, z:real;
begin
read (x, y);
if x <> y then
y:=x*y;
else
begin
x:=x/2;
y:=y/2;
end;
writeln ('x=', x, 'y=', y, 'z=', z);
writeln ('ЗАДАЧА РЕШЕНА');
end.