Ошибки в программе:
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.
a=20000
b=800
x=input("Фамилия тренера:\n")
y=int(input("Занятость(1-полная,2-почасовая):\n"))
if y == 1:
z=int(input("Стаж в годах:\n"))
if z > 3 and z <= 5:
print(x,"-",1.5*a)
elif z > 5 and z <= 7:
print(x,"-",2*a)
elif z > 7:
print(x,"-",3*a)
elif y == 2:
b1=int(input("Введите количество отработанных часов:\n"))
print(x,"-",b1*b)
#Сайт Replit python скопируй код
https://replit.com/languages/python3