Дано расстояние в метрах. найти число полных километров в нём.

var a: integer;

begin

writeln('введите кол-во метров: ');

read(a);

writeln('кол-во полных километров: ', a div 1000);

end.

имитационные модели оперируют разыгрыванием случайной величины!   если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

writeln('введите число');

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.