program ab uses crt begin writeln Hello World readln end

1
2
3
4
5
6
program ab;
uses crt;
begin
writeln('Hello,World');
readln;
end;