Напешите программу, напешите четырехзначное число и выбейте от туда 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.