Паскаль! заменить for на while!

var a,b,c,s1,s2,k,i: integer;
begin
write('a, b, c: ');
readln(a,b,c);
s1: =0;
for i: =1 to b do s1: =s1+a;
s2: =0;
for i: =1 to c do s2: =s2+c;
writeln('s1 = ',s1,' s2 = ',s2);
k: =0;
while s1> s2 do begin k: =k+1; s1: =s1-s2; end;
k: =k+1;
writeln('k = ',k);
end.

пример:
a, b, c:
4 7 3
s1 = 28 s2 = 9
k = 4

var a,b,c,s1,s2,k,i: integer;

begin

write('a, b, c: ');

readln(a,b,c);

s1 : = 0;

for i: =1 to b do

s1 : = s1+a;

s2 : = 0;

for i: =1 to c do

s2 : = s2+c;

writeln('s1 = ',s1,' s2 = ',s2);

k : = 0;

for i: =1 to s1 div s2 do

begin

k : = k+1;

s1 : = s1-s2;

end;

k : = k+1;

writeln('k = ',k);

end.

Круги́ э́йлера — схема, с которой можно изобразить отношения между подмножествами, для наглядного представления. изобретены эйлером. используется в , логике, менеджменте и других прикладных направлениях. важный частный случай кругов эйлера — диаграммы эйлера — венна, изображающие все 2n комбинаций n свойств, то есть конечную булеву . при n=3 диаграмма эйлера — венна обычно изображается в виде трёх кругов с центрами в вершинах равностороннего треугольника и одинаковым радиусом, приблизительно равным длине стороны треугольника. при решении целого ряда леонард эйлер использовал идею изображения множеств с кругов. однако, этим методом еще до эйлера пользовался филосов и готфрид вильгельм лейбниц (1646—1716). но достаточно основательно развил этот метод сам л. эйлер. методом кругов эйлера пользовался и эрнст шрёдер (1841—1902) в книге « логики» . особенного расцвета графические методы достигли в сочинениях логика джонa венна (1843—1923), подробно изложившего их в книге «символическая логика» , изданной в лондоне в 1881 году. поэтому такие схемы иногда называют диаграммы эйлера — венна.