С клавиатуры вводится трехзначное число. Вывести на экран удвоенную цифру единиц Pascal.

program zz1;

var k, s, a:integer; / / задаем переменные целого типа

begin

write (' введите заданное трехзначное число '); / / вводим число с клавиатуры

read (k);

s:=k mod 10; / / получаем последнюю цифру, то есть число единиц

a:=s * 2; / / удваиваем полученное количество единиц

writeln (' полученный результат = ', a); / / выводим ответ

end.