program laba_14;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type Worker = class
Nam: String;
Role: String;
Salary: Real;
procedure UpdateSalary;
procedure UpdateRole;
end;

procedure Worker.UpdateSalary;
begin
  Salary:= Salary + Salary * 0.15;
  Writeln('Новая зарплата - ', Round(Salary));
end;
procedure Worker.UpdateRole();
var c: Char;
begin
 if (Nam.StartsWith('Иван')) then
 begin
 Writeln(Nam, ', вам предложена должность "ИНЖЕНЕР"!');
 Writeln('Принять? - Y/N');
 Readln(c);
 if (c = 'Y') then
 begin
  Role:= 'Инженер';
  Writeln('Информация обновлена.');
 end;
 end;


end;

var I,Z: Worker;
begin
   Writeln('Первый работник: ');
   I:= Worker.Create;
   Z:= Worker.Create;
   I.Nam:= 'Иванов';
   I.Role:= 'Слесарь';
   I.Salary:= 300;
   I.UpdateSalary;
   I.UpdateRole;
   Writeln;
   Writeln('Второй работник: ');
   Z.Nam:= 'Денисенко';
   Z.Role:= 'Директор';
   Z.Salary:= 2300;
   Z.UpdateSalary;
   Z.UpdateRole;
   Readln;
end.