type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.
Varn,k,a,b,c,g:integer;e:real;Beginwriteln('Количество яблонь: ');read(n);writeln('Содержание 1-ой яблони в рублях: ');read(k);writeln('Наценка на 1кг в процентах: ');read(g);a:=0;randomize;for c:=1 to n dobeginb:=random(20)+30;a:=a+bend;e:=k*g/100*a;writeln('Урожай составил ',a,' кг яблок.');writeln('Прибыль с проажи ',a,' кг яблок: ',e,' рублей.');end.