Размещено 4 года назад по предмету
Информатика
от zakatoff
встречено "Writeln" а ожидалось ";"
program b;
var x,y:real;
begin
writeln('Введите первое число');
readln(x);
Writeln('Введите второе число');
readln(y);
if (x>10) and (y>10) then x:=x*y
writeln('Произведение числа=', x)
else y:=x+y
writeln('Cумма чисел=', y)
end.