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

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

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