pascalabcnet/InstallerSamples/!Tutorial/01_First/ReadString.pas

// Ввод строки
var s: string;

begin
  write('Введите Ваше имя: ');
  readln(s);
  writeln('Здравствуйте, ',s);
end.
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`// Ввод строки`
initial commit 2015-05-14 22:35:07 +03:00			`var s: string;`

			`begin`
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`write('Введите Ваше имя: ');`
initial commit 2015-05-14 22:35:07 +03:00			`readln(s);`
change encoding for all .pas and .cs files: cp1251 -> utf-8 2015-12-28 14:25:15 +03:00			`writeln('Здравствуйте, ',s);`
initial commit 2015-05-14 22:35:07 +03:00			`end.`