8 lines
116 B
ObjectPascal
8 lines
116 B
ObjectPascal
// Ââîä ñòðîêè
|
|
var s: string;
|
|
|
|
begin
|
|
write('Ââåäèòå Âàøå èìÿ: ');
|
|
readln(s);
|
|
writeln('Çäðàâñòâóéòå, ',s);
|
|
end. |