<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.
Английский, испанский,французкий
А) Саратов,Самара,Париж,Волгоград,Воронеж и т.д.
б) Нельзя дописать Волга, тк это река и Россия, тк это Страна
Бег......Шаг
бег - Бог - бок - бак - мак - маг -шаг
1) uses<span> crt;
2) </span><span>var
3) </span>s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0<span>;
7) </span>writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?')<span>;
</span>10) readln(s2);
11) for i:=1 to length(s1) do <span>begin
</span>12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k)<span>;</span>
16)End.