Запишите на языке Паскаль программу решение задачи используя оператор for

var a,b,i:integer;c,d:real;begina:=40000;b:=5;d:=a;for i:=1 to 3 do beginc:=d/20;d:=d+c;end;writeln(d);end.