writelnC Как Вас
{ Приветствие } var
name: string[40]; { имя пользователя } begin
writelnC Как Вас зовут?');
writeln('(введите свое имя и нажмите <Enter>');
write('->');
readln(name);
writeln('Здравствуйте, ',name,'!');
readln; end.
Turbo Pascal для начинающих
{ Приветствие } var
name: string[40]; { имя пользователя } begin
writelnC Как Вас зовут?');
writeln('(введите свое имя и нажмите <Enter>');
write('->');
readln(name);
writeln('Здравствуйте, ',name,'!');
readln; end.