Kilo noras pasimokyt pascalio kalbos. Pradėjus rašyt pirmą programą kilo klausimas - kaip padaryt, kad pvz. apskaičiavus perimetrą vėl parodytų "Jei nori apskaičiuoti kvadrato plotą įrašyk "1", jei perimetrą "2"" ir programa būtų vykdoma vėl iš naujo. program kvadrat;
var per, plot, kint : longint; //kint - 1,2
begin
Writeln('Jei nori apskaičiuoti kvadrato plotą įrašyk "1", jei perimetrą "2"');
Readln(kint);
If kint = 1 //jei 1 - skaičiuojamas plotas
then
begin Writeln('Įvesk kvadrato kaštinės ilgį "a"');
Readln(plot);
plot := plot * plot;
Writeln('Plotas lygus ', plot);