7 lines
104 B
ObjectPascal
7 lines
104 B
ObjectPascal
Program pr;
|
|
var A: integer;
|
|
begin
|
|
writeln('Ðàáîòíèêè ');
|
|
readln(A);
|
|
writeln('Çàðïëàòà ', 624750/A);
|
|
end. |