varnumber, units : integer;beginwriteln('Введите трехзначное число:');readln(number);
units := number mod 10; // находим цифру единиц
writeln('Удвоенная цифра единиц: ', units * 2);end.
var
number, units : integer;
begin
writeln('Введите трехзначное число:');
readln(number);
units := number mod 10; // находим цифру единиц
writeln('Удвоенная цифра единиц: ', units * 2);
end.