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

Решение на фото. Будут вопросы, пишите

var a,b,c:integer;beginwriteln(‘vvedite chislo’);readln(a);b:=a div 1000;c:=(a div 10) mod 10;writeln(b,’ ‘,c);end.