Гордость, жадность, глупость, упрямство, тупость, неумение, выпендрежничество, и т.д
Если нужно вывести большее из двух чисел, то правильно, кроме:
3-я строка - в конце нужна точка с запятой
7-я строка - бессмысленная команда readln. Ее можно не писать.
<span>var
i, p, s: integer;
begin</span>
<span> s:=0;
</span> p:=1;
for i:=15 to 20 do
<span>
begin
</span><span>s:=s+i;
p:=p*i;
</span> end;
writeln('s=',s);
writeln('p=',p);
end.
Жди, пока закончится. Это проверка и исправление ошибок на диске.
Банальный вариант
var i:integer;
begin
for i:=1000 to 9999 do
if i mod 10 + i div 1000 = i div 100 mod 10 + i div 10 mod 10
then writeln(i)
<span>end. </span>