Var s: k integer begin s: =10; for k: =1 downto 11 do s: =s+15; writeln(s) end.

Если исправить синтаксические ошибки: var s,k: integer; то: в цикле  for k: =1 downto 11 do s: =s+15; начальное значение (1) меньше конечного (15), поэтому тело цикла не выполнится ни разу. значение переменной s останется равной 10, т.е. на экран будет выведено 10

системный блок

 

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.