Pascali põhitõed
;
;
;
end
else
begin
;
;
end;
Programminäide 2.
program Küsimus;
var arv : integer;
begin
write('Mitu miilitsat on vaja, et lambipirni vahetada? ');
readln(arv);
if arv = 6 then
writeln('Tubli! Nii see on.')
else
begin
writeln('Õige on 6 - üks seisab laual ja hoiab pirnist kinni... ');
writeln('...neli keerutavad nurkadest lauda... ');
writeln('...ja viimane valvab ukse juures, et elekter lampi ei
pääseks.');
end;
Programminäide 3.
program LeiaPindala;
(* Programm suudab arvutada ringi, täisnurkse kolmnurga või ruudu *)
(*pindala. Kasutaja ülesandeks on valida kujund ning anda lähteandmed *)
var kujund : char;
a,b,S : real;
(* Programmi eri osades võivad samal muutujal olla ka eri tähendused. *)
(* See võimaldab vähendada programmi mahtu, kuid muudab selle *)
(* ühtlasi raskemini arusaadavamaks - lühemate programmide puhul ei *)
(* ole eriti otstarbekas. *)
begin
writeln('Leiame kujundi pindala');
annaabi.ee 
