File: hello.pas

package info (click to toggle)
binutils-avr 2.26.20160125%2BAtmel3.6.2-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 365,552 kB
  • sloc: ansic: 2,480,046; asm: 892,808; exp: 188,218; cpp: 133,829; makefile: 63,886; sh: 32,212; yacc: 26,783; lisp: 16,709; xml: 7,490; perl: 6,449; python: 4,555; ada: 4,318; pascal: 3,174; lex: 2,250; cs: 879; sed: 334; f90: 298; awk: 168; objc: 134; java: 73; fortran: 43
file content (15 lines) | stat: -rw-r--r-- 217 bytes parent folder | download | duplicates (31) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
program hello;

var
  st : string;

procedure print_hello;
begin
 Writeln('Before assignment'); { set breakpoint 1 here }
 st:='Hello, world!'; 
 writeln(st); {set breakpoint 2 here }
end;

begin
  print_hello;
end.