Думаю так
<span>var i, n: integer; s: real;
begin write('S N? '); readln(s, n); for i:=1 to n do s:=s*1.02; writeln(s:0:2); readln end.</span>
А проще без цикла:
<span>var n: integer; s: real;
begin write('S N? '); readln(s, n); writeln(s*exp(n*ln(1.02)):0:2); readln end.</span>
А на русском языке программы не составляют. Pascal, C, C++
Var m:integer;
begin
write('m = '); readln(m);
case m of
1 : writeln('один бань');
5 : writeln('пять бань');
10: writeln('десять бань');
25: writeln('двадцать пять бань');
50: writeln('пятьдесят бань');
else writeln('недопустимое значение');
end;
end.
Пример:
m = 25
двадцать пять бань
Программист
Секретарь
Работник горячей линии( телефонист)
Продавец
Учитель