Вывести на экран введенные пользователем данные в полях шириной, заданной по умолчанию, и полях шириной, определяемой пользователем.
var fname,sname: string; age: byte; f,s,a: byte; begin write('Name: '); readln(fname); write('Surname: '); readln(sname); write('Age: '); readln(age); writeln(fname:10,sname:20,age:5); writeln; write('Fields for name, surname and age: '); readln(f,s,a); writeln(fname:f,sname:s,age:a); end.
Комментарии
указано f,s,a:
указано f,s,a: byte;
исправлено f,s,a: integer;