a = float(input('a = '))
c = input()
b = float(input('b = '))
if c == "-" :
////print (a-b)
elif c == "/" :
////if c != "0" :
////////print (a/b)
////else :
////////print("Деление на ноль!")
elif c == "*":
////print(a*b)
elif c == "mod":
////print (a % b)
elif c == "pow":
////print(a ** b)
elif c == "div":
////print(a // b)
elif c == "+":
////print(a+b)
все '/' ето 1 пробел
Var a,b,r:real;
begin
readln(a,b);
r:=(a+b)*(a+b);
writeln(r);
<span>end.</span>
Тетрадь какого автора? Уточните задание.