напишите класс, который принимает с клавиатуры целое положительное число и, если оно как минимум трехзначное и положительное, уменьшает его на 1 

— Правильный ответ на вопрос найдете ниже

Ответ:

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.