Ничего не будет напечатано, так как в программе кроме большого количества опечаток есть и явная ошибка: переменная sr не может иметь тип integer (это следует из оператора <span>sr:=s/3).</span>
Если нужно, как в моем комментарии, то
Program summer;
var a, b, c: real;
Begin
Readln (a,b) ;
c:=a+b;
write (c);
<span>
End.</span>
Дано словесное описание. Значит это действие над информацией которая дана.
# Симметричные числа
input "Нижняя граница диапазона = ", a
input "Верхняя граница диапазона = ", b
if b<a then
t=a
a=b
b=t
end if
if a<10 then
print "Числа должны быть по крайней мере двухзначными"
goto Fin
end if
for i=a to b
s$=i
n=length(s$)
k=n\2
for j=1 to k
if mid(s$,j,1)<> mid(s$,n-j+1,1) then goto NonSimm
next j
print i
NonSimm:
next i
Fin:
end
<u>Тестовое решение:</u>
Нижняя граница диапазона = 954
Верхняя граница диапазона = 1423
959
969
979
989
999
1001
1111
1221
1331