mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-05-31 20:41:28 +00:00
22 lines
345 B
ObjectPascal
22 lines
345 B
ObjectPascal
program ExampleConsole;
|
|
|
|
const
|
|
message = ' Welcome to the world of Pascal ';
|
|
|
|
type
|
|
name = String;
|
|
|
|
var
|
|
firstname, surname: name;
|
|
|
|
begin
|
|
|
|
ShowText;
|
|
Writeln('Please enter your first name: ');
|
|
Readln(firstname);
|
|
Writeln('Please enter your surname: ');
|
|
Readln(surname);
|
|
Writeln;
|
|
Writeln(message, ' ', firstname, ' ', surname);
|
|
|
|
end. |