1.

(*program pozdravi*)
program pozdrav;
begin
      writeln ('ahoj');readln;
end.
2.
(*scitac*)
program soucet;
var a,b,c:integer;
begin read(a,b);
c:=a+b;
writeln(c);
readln
3.
(*obvod a obsah ctverce*)
program obvod;
var     a,y,o:integer;
begin   write('zadej strany ctverce');
        readln(a);
        y:=(4*a);
        o:=(a*a);
        writeln('obsah ctverce je',y);
        writeln('obvod ctverce je',o);
        writeln('to koukas co');
        readln;
end.
4.
(*obvod a obsah obdelnika*)
program obvod;
var     a,b,y,o:integer;
begin   writeln('zadej strany obdelnika');
        writeln('stranu a');
        readln(a);
        writeln('stranu b');
        readln(b);
        y:=(2*(a*b));
        o:=(a*b);
        writeln('obsah obdelnika je',o);
        writeln('obvod obdelnika je',y);
        writeln('to koukas co');
        readln;
end.               
5.
(*obvod a obsah kruhu*)
program kruh;
var     r:integer;
        o,s:real;
begin   writeln('zadej polomer r');
        readln(r);
        o:=2*3.14*r;
        s:=3.14*r*r;
        writeln('obvod je',o:8:3);
        writeln('obsah je',s:8:3);
        writeln('nezdrzuj, priste si vem kalkulacku');
        readln
end.
6.
(*obvod a obsah pravouhleho trojuhelnika*)
program trojuhelnik;
var     a,b,c:real;
        o,s:real;
begin   writeln('napis stranu a');
        readln(a);
        writeln('napis stranu b');
        readln(b);
        c:=sqrt(a*a+b*b);
        o:=(a+b+c);
        s:=(a*b)/2;
        writeln('strana c je');
        writeln(c:8:3);
        writeln('obvod je');
        writeln(o:8:3);
        writeln('a obsah je');
        writeln(s:8:3);
        writeln('diky za pocitani, pro ukonceni stisknete ENTER');
        readln;
end.
7.
(*prevod*)
program   prevadec;
var       a,b,c:real;
begin     writeln('napis cislo');
          readln(a);
          writeln('pro prevod na milimetry stiskni 1');
          writeln('pro prevod na decimetry stiskni 2');
          writeln('pro prevod na kilometry stiskni 3');
          readln(b);
          if b=1 then c:=(a*1000);
          if b=2 then c:=(a*100);
          if b=3 then c:=(a/1000);
          writeln(c:8:3);
          readln;
end.
8.
(*vypise sousedy znaku*)
program  vypisovac;
var      z,p,n:char;
begin    writeln('napis znak');
         readln(z);
         p:=pred(z);
         n:=succ(z);
         writeln('predchudce je');
         writeln(p);
         writeln('nasledovnik je');
         writeln(n);
         readln;
end.
9.
(*pocet kraliku a slepic*)
program pocitac;
var     a,b,c,d:integer;
begin   writeln('napis pocet kraliku');
        readln(a);
        writeln('napis pocet slepic');
        readln(b);
        c:=(a*4+b*2);
        d:=(a+b);
        writeln('pocet hlav je');
        writeln(d);
        writeln('pocet nohou je');
        writeln(c);
        readln;
end.
10.
(*celociselny podil a zbytek*)
program       podil;
uses          crt;
var           a,b,c,d:integer;
begin         clrscr;
              writeln('zadej 2 cisla');
              readln(a);
              readln(b);
              c:=a div b;
              textcolor(yellow);
              writeln('vysledek je', c);
              d:=a mod 2;
              textcolor(red);
              writeln('zbytek je', d);
              readln;
end.
11.
(*prekoduje znak o dany pocet pozic*)
program     prekodovac;
uses        crt;
var         vs,vy,q,w:char;
            a,b:integer;
begin       clrscr;
            readln(vs,a);
            b:=ord (vs);
            b:=b+a;
            vy:=chr(b);
            writeln(vy);
            writeln('zmackni q pro ukonceni');
            repeat
            if keypressed then readln(w);
            until w='q';
end.