Помогите решить B4 только его! 
Циклом (Блок-схема, псевдокод)

Псевдокод:алг Сумма вклада    ввод K    S:=K    нц для n от 1 до 18       S:=S*1.015    кц    вывод SконКод Pascal:Var   S:real;   i:integer;BeginWrite('K = ');ReadLn(S);For i:= 1 to 18 do    S:=S*1.015;WriteLn('S = ',S);End.Пример:K = 10S = 13.0734063583203Блок-схема: