Program Old_name;
var
old:integer;
name:string;
begin
writeln ('Как вас зовут?');
readln (name);
writeln ('Сколько вам лет?');
readln (old);
writeln (name,', ', old,'лет');
end.
Объяснение:
Ненужно
Program Old_name;
var
old:integer;
name:string;
begin
writeln ('Как вас зовут?');
readln (name);
writeln ('Сколько вам лет?');
readln (old);
writeln (name,', ', old,'лет');
end.
Объяснение:
Ненужно