Что получиться в результате выполнения этой программы?

Program prim2_2;
Var a, b, r: real;
Begin
a:=3;
b:=5;
r:=a+b;
Write(' a=' , a, ' b=' , b);
End.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

третье, там где пять

5> 4 и не 5> =6