Kodas:

program Pamoka2;
var a,b,c : real; {tai tipas skaičių, kurie gali turėti skaitmenų po kablelio}

d : string; {šiam tipui priskirtame kintamajame galima rašyti žodžius}

e : char; {šio tipo kintamas gali būti bet koks vienas ženklas}



begin



{Šioje programoje išmoksime padaryti, kad programa sudėtų du skaičius ir parašytų atsakymą}



WriteLn('Įveskite pirmą skaičių');

readln(a);{nuskaitomas skaičius}

WriteLn('Įveskite antrą skaičių');

readln(b); {nuskaitomas antras skaičius}

c:=(a+b); {nurodome programai ką norime matyti kintamojo c vietoje, nurodome jo reikšmę (šiuo atveju, tai turės būti a+b t.y. sudėti pirmas ir antras skaičiai)}

Writeln(c:6:2); {liepiame programai parašyti kintamojo c reikšmę. Šešetas po dvitaškio reiškia, kad prieš kablelį gali būti daugiausiai 6 skaitmenys, o dvejetas po antro dvitaškio reiškia, kad po kablelio norime matyti tik 2 skaitmenis}




{Kadangi nesinori daryti atskiros pamokos apie string, kuris yra labai paprastas tai parodysiu jo galimybes šioje pamokoje:]}



Writeln('Koks Jūsų vardas');

readln(d); {nuskaito žodį (šiuo atveju Jūsų vardą)}

Writeln('Jūsų vardas yra - ',d,'.');




{Tas pats ir su char :))}



Writeln('Įveskite ženklą');

readln(e);{Nuskaitomas ženklas, raidė, tarpas, skaičius ar bet kas kita}

Writeln('Jūs įvedėte: ',e); {Parodoma tai ką įvedėte}



Readln;

end.