program RemoveTens;
vanum, newNum: integer;
begiwriteln('Enter a 4-digit number: ')readln(num);
newNum := (num div 1000) 1000 + (num mod 100) mod 10 100 + (num mod 100) div 10 * 10 + num mod 10;
writeln('Number with removed tens: ', newNum);
end.
program RemoveTens;
va
num, newNum: integer;
begi
writeln('Enter a 4-digit number: ')
readln(num);
newNum := (num div 1000) 1000 + (num mod 100) mod 10 100 + (num mod 100) div 10 * 10 + num mod 10;
writeln('Number with removed tens: ', newNum);
end.