var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
1) именительного падежа,единственного числа.
2)<span>следовательно, число не оканчивается на 0</span>
Основную часть экрана занимает рабочий стол
С)30.Кажется ,если не правильно простите пожайслуйста.