Ответ: Turbo Pascal
program idz;
uses crt;
var direct,my_name,cel,date,zav,spec,opit,dolg,oplata:integer;
begin
writeln ('Vvedite imja direktora:');
readln (direct);
writeln ('Vvedite F.I.O.:');
readln (my_name);
writeln ('Cel napisanija zajazlenija:');
readln (cel);
writeln...