Составить программу, которая будет считывать введённое четырехзначное число. Каждую цифру этого числа необходимо вывести в новой строке

cпасибо, но мне на паскале нужно было ,сам виноват я что не уточнил

))

+ много ошибок в твоей программе

там легко перевести в freepascal, всего несколько правок, к сожалению не могу, ответ заблокирован, жаль

// PascalABC.NETbegin   var num: integer;   while true do   begin      num := ReadlnInteger('введите 4-х значное число, num =');      if (num > 999) and (num <= 9999)         then break;   end;      var str := num.ToString;      foreach var x in str do      Println(x)end.

var a,f:integer;beginwrite('Введите четырехзначное число: ');readln(a);f:=a div 1000;writeln(f);a:=a-1000*f;f:=a div 100;writeln(f);a:=a-100*f;f:=a div 10;writeln(f);a:=a-10*f;writeln(a);end.