1
2
3
4
5
6
7
8
9
uses crt,graph; 
const r=20;h=5; 
var gd,gm,i,n,t,x,y,p:integer; 
begin 
clrscr; 
gd:=Detect; 
initgraph(gd,gm,'c:\bp\bgi '); 
setcolor(4); 
setlinestyle(0,1,1); 
 ...

1
writeln("круто");

1
2
3
4
program one;
BEGIN
   writeln('Hello World');
END.

1
2
3
4
program 1;
BEGIN
   writeln('Hello World');
END.

1
read(x)

1
2
3
4
program H;
begin
print('Hello, world!');
end.

1
2
3
4
program H
begin
print('Hello, world!');
end.

1
2
3
4
program H
begin
print('Hello, world!');
end.

1
2
3
begin
print('Hello, world!');
end.

1
write('fdfdf');

1
2
3
4
5
6
7
8
program test;
var x: integer;
begin
  repeat
    readln(x);
    if x<>42 then writeln(x);
  until x=42
end.

1
2
3
4
5
program test;
var x: integer;
begin
 
end.

1
2
3
for i := 0 to 32 do begin
        f:=i;
end;

1
2
3
4
5
6
7
8
9
uses Crt;
program Types;
var
 i:integer;
 W:string;
begin  
  for i:= 0 to 200 do
  begin
    W := 'Letter';
 ...

1
2
3
4
5
6
7
8
9
program Types;
var
 i:integer;
 W:string;
begin  
  for i:= 0 to 200 do
  begin
    W := 'Letter';
  end;
 ...

1
2
3
4
5
6
7
8
9
program Types;
var
 i:integer;
 W:string;
begin  
  for i:= 0 to 200 do
  begin
    W := 'Letter';
  end;
 ...

1
2
3
4
5
6
for i:= 0 to 200 do
begin
  W := 'Letter';
end;
 
MEssageDlg(W,mtWarning,[mbok],0) 

1
2
3
begin
writeln "preved";
end.

1
2
3
4
5
<?php
 
echo 'fuck';
 
?>

1
2
3
4
5
<?
 
echo 'fuck';
 
?>

1
writeln('fuckin');

1
2
3
4
5
6
7
Program Hel;
Var I:integer;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
Program Hel;
Var I;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
Uses WinCrt;
Var I;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
 
Var I;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
Uses WinCrt;
Var I;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
Uses Crt;
Var I;
BEGIN
        writeln('Dose Timi gia to I:');
        readln(I);
        writeln('Dosate tin timi ',I,'...');
END.

1
2
3
4
5
6
7
8
9
program test;
var x: string;
var c: char;
var i, ile, dlugosc: integer;
begin
 
 
    writeln('Wprowadz tekst');
    Readln(s);
 ...

1
2
3
4
5
6
7
8
9
program test;
var x: string;
var c: char;
var i, ile, dlugosc:
begin
 
 
    writeln('Wprowadz tekst');
    Readln(s);
 ...

1
2
3
4
5
6
7
8
9
program test;
var x: string;
var c: char;
var i, ile, dlugosc:
begin
 
 
    writeln('Wprowadz tekst');
    Readln(s);
 ...