Поле засеяли цветами 2-ух сортов на площади S1 и S2. Каждый

USES Crt;
VAR
nbsp;nbsp;nbsp;S1,S2:WORD; nbsp;KL:BYTE;
BEGIN
nbsp;ClrScr;
nbsp;Write(Введите площадь, которую засеяли цветами 1-го сорта ); nbsp;ReadLn(S1);
nbsp;Write(Введите площадь, которую засеяли цветами 2-го сорта ); nbsp;ReadLn(S2);
nbsp;nbsp;KL:=1;
nbsp;nbsp;While (S1gt;0.1*S2) DO Begin
nbsp;nbsp;nbsp;nbsp;S1:=S1*2; nbsp;nbsp;nbsp;S2:=S2*3; nbsp;nbsp;nbsp;KL:=KL+1;
nbsp;nbsp;End;
nbsp;nbsp;WriteLn(Площадь, которую засеяли цветами 1-го сорта ,S1);
nbsp;nbsp;WriteLn(Площадь, которую засеяли цветами 2-го сорта ,S2);
nbsp;nbsp;WriteLn(Через , kl, лет);
END.