Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
Катя не ходит в школу.;Сегодня плохая погода.; Девочка не поливает цветы.; Петя умеет читать.; Это все знают
program zadacha;
var a,b:integer;
begin
writeln('введите число сотен');
readln(a);
b:=a*100;
writeln('введите число десятков');
readln(a);
b:=b+a*10;
writeln('введите число едениц');
readln(a);
b:=b+a;
writeln('полученное число = ',b);
readln;
end.
Тут две грамматических основы: Сентябрь наступил; год начался -> сложное
Ну и судя по всему оно истинное