Тут не она ошибка, а множество. Должно быть так:
var
a: integer;
begin
writeln('Введите любое число');
read(a);
if (a > 0) then
begin
a := a + 1;
writeln(a)
end
else
begin
a := a - 2;
writeln(a)
end
end.
Var a,b,c,d,e:integer;
begin
read(a,b,c,d,e);
write(a+b+c+d+e);
end.
program sss;
uses crt;
var s:string;
i,k,m:integer;
begin
clrscr;
readln(s);
for i:=1 to length(s)-2 do
begin
if ( (s[i] = 'т') or (s[i] = 'Т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'О') ) and ( (s[i+2] = 'М') or (s[i+2] = 'м') then
begin
k:=1;
break;
end;
end;
if k = 1 then writeln('Да')
else writeln('Нет');
readkey;
end.
14336:1024=14 Кбайт
Ответ: 14