Напешите программку,напешите четырехзначное число и вышибите от туда 2 цыфру и

program zz1;

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

begin

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

read(k);

k1:=k div 1000; // получаем первую цифру четырехзначного числа

k2:=(k div 100) mod 10; // получаем вторую цифру четырехзначного числа

k3:=(k div 10) mod 10; // получаем третью цифру четырехзначного числа

k4:=k mod 10;  // получаем четвертую цифру четырехзначного числа

s:=k1 * 100 + k3 * 10 + k4; // формируем новое число

write( приобретенное число = , s); // выводим ответ

end.