mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-05 11:12:40 +02:00
10 lines
120 B
Plaintext
10 lines
120 B
Plaintext
Program test;
|
|
var
|
|
s: string;
|
|
begin
|
|
Writeln('Your name?');
|
|
s := readln(s);
|
|
s := s + 'TESTED';
|
|
writeln(s);
|
|
end.
|