Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
1.
program z1;
var r:real;
begin
write ('Введите радиус круга ');
readln (r);
if r>10 then write ('Площадь круга ',r*r*3.1415926:0:3)
else write ('Радиус круга ',r)
end.
2.
program z2;
var x1,x2:real;
begin
write ('Введите координаты двух точек на числовом луче ');
readln (x1,x2);
if abs(x1)>abs(x2) then write (x1,' дальше от 0 ')
else if abs(x1)<abs(x2) then write (x2,' дальше от 0 ')
else write ('Точки одинаково удалены от 0 ')
end.