FREE PASCAL

Pirmos programavimo pamokos pavyzdys:

program kvadratas;
var a, b :real;
begin
WriteLn('Labas, suskaičiuosime kvadrato plotą');
WriteLn('Įveskite kvadrato kraštinės ilgį');
ReadLn (a);
b := a*a;
WriteLn('Jei kvadrato kraštinės ilgis - ' ,a:2:4);
WriteLn('kvadrato plotas - ',b:6:6);
ReadLn;
end.