Przykłady programów w Pascalu

ASCII Lotto

Palindromy

program palindromy;
uses crt;
var n,p,i:byte;
    dlugosc:byte;
    tekst:string;

begin
  clrscr;
  writeln('wprowadz ciag liczb lub liter');
  readln(tekst);
  n:=0;
  dlugosc:=length(tekst) div 2;
  for i:=1 to n do if tekst[i]=tekst[dlugosc-i+1] then p:=p+1;
  if p=n then writeln('to jest palindrom') else writeln('to nie jest palindrom');
  readkey;
end.

 Zamiana tekstu na kod ASCII
uses crt;
const tekst='Ala ma kota.';
var i:byte;
begin
  clrscr;
  writeln('tekst na ASCII -  ord');
  for i := 1 to length(tekst) do write(ord(tekst[i]),' ');
  readkey;
end.

Lotto
uses crt;
const n=6;
var a:array[1..n] of byte;
    i:byte;
begin
  randomize;
  clrscr;
  for i:= 1 to n do
  begin
    a[i]:=random(49);
    writeln(a[i])
  end;
  readkey
end.