Jau ilgą laiką žiūriu į ekraną bandau išsiaiškint kodėl nekompilina mano paskalio kodo, buvo duoti du uždaviniai, jeigu greit padėtumėt būčiau labai dėkingas. Pirmas uždavinys
program Statinė;
var kaina, skrit1, skrit2, stač, suma, ats: real;
begin
WriteLn('Įrašykite pirmo skritulio spindulį');
Readln(skrit1);
WriteLn('Įrašykite antro skritulio spindulį');
Readln(skrit2);
WriteLn('Įrašykite stačiakampio kraštinės ilgį');
Readln(stač);
WriteLn('Įrašykite skardos kainą');
ReadLn(kaina);
suma := pi*(skrit1*skrit1)+ pi*(skrit2*skrit2) + stač*stač;
WriteLn('Iš viso metrų:', suma:2:2);