дед_вкид228... чтобы сегодня не на перовой!!!

Объяснение:

program qwe;

var

  a: integer;

begin;

writeln ('Введите значение');

readln (a);

writeln (a/10);

end.