помогите пожалйста в паскале

Question

Ввести N десятичных цифр (знаков) и образовать из них соответствующее значение A типа Word (Например, введя 4 цифры: ‘3’,’0’,’5’,’2’, мы должны сформировать значение A=3052) и как написать эту прогу с цыклом for? помогите очень нужно

надо учесть, что разрядность вводимого числа не обязательно 4. Ведь сказано в условии - N, помогите

надо учесть, что разрядность вводимого числа не обязательно 4. Ведь сказано в условии - N, помогите

Олег Орлов · Accepted Answer

var 
 c: char; 
 i: integer; 
 a: word; 
begin 
 for i := 1 to 4 do begin 
 readln(c); 
 a := a * 10 + ord(c) - ord('0'); 
 end; 
 writeln(a); 
end. 
 
Каждый символ надо вводить на новой строке.