program Sudėtis;
var a, b;
begin
  WriteLn('Iveskite skaičiu:');
  read (a);
  WriteLn ('Iveskite skaičiu:');
  read (b);
  Write (a+b);
  Readln;
end.

program sudėtis;
var a, b : integer;
begin
  WriteLn('Iveskite skaičiu:');
  readLn(a);
  WriteLn ('Iveskite skaičiu');
  readLn(b);
  WriteLn (a+b);
  Readln
end.

 
program sudėtis;
 
var a, b : integer;
 
begin
 
  WriteLn('Iveskite skaičiu:');
 
  readLn(a);
 
  WriteLn ('Iveskite skaičiu');
 
  readLn(b);
 
  WriteLn ('Rezultatas: ',a+b);
  Readln
 
end.

program vidurkis;
var a, b, vid: real;
begin
WriteLn ('Iveskite skaičiu')
read(a);
WriteLn ('Iveskite skaičiu')
read(b);
vid := (a+b)/2;
writeln(vid: 8: 2)
end.

program vidurkis;
 
var a, b, vid: real;
 
begin
WriteLn ('Iveskite skaičiu');
readln(a);
WriteLn ('Iveskite skaičiu');
readln(b);
vid := (a+b)/2;
writeln(vid: 8: 2);
readln
end.

program vidurkis;
var a, b, vid: real;
begin
WriteLn ('Iveskite skaičiu');
read(a);
WriteLn ('Iveskite skaičiu');
read(b);
vid := (a+b)/2;
writeln('Vidurkis',vid: 8: 2);
ReadLn
end.

program daugyba;
var a, b : integer;
begin
  WriteLn('Iveskite skaičiu:');
  read(a);
  WriteLn ('Iveskite skaičiu:');
  readLn(b);
  WriteLn ('Rezultatas:',a*b);
  Readln;
end.

program kelimas laipsniu;
var a, b : integer;
begin
  WriteLn('Iveskite skaičiu 1:');
  read(a);
  WriteLn ('Iveskite skaičiu 2:');
  readLn(a);
  WriteLn ('Iveskite skaičiu 3:');
  readLn(a);
  WriteLn ('Rezultatas:',a*a*a);
  Readln;
end.

program Vidurkis;
var b, c, vid: real;
begin
  WriteLn('Hi! Stai cia tokia maza programele, kurioje gali surasti dvieju skaiciu vidurki. Spausk enter.');
  Readln;
  WriteLn('Parasyk pirmaji skaiciu ir spausk enter:');
  Readln(b);
  WriteLn('Parasyk antraji skaiciu ir spausk enter:');
  Readln(c);
  vid := (b+c)/2;
  WriteLn('Rezultatas: ',vid: 8: 2);
  Readln
end.
 

program kartotiniai;
var dbd, mbk, sk, sk2 : longint;
procedure dbdmbk (sk1, sk2 : integer; var dbd, mbk : longint);
var ska, ska2, i, m, min, max : longint;
begin
if sk1 <= sk2 then
begin
min := sk1;
max := sk2;
end
else
begin
min := sk2;
max := sk1;
end;
 
dbd:=1;
for i := 1 to min do
if (sk1 mod i = 0) and (sk2 mod i = 0) then dbd := i ;
 
m := sk1 * sk2;
mbk := m ;
for i := max to m do
if (i mod sk1 = 0) and (i mod sk2 = 0) then
begin
mbk := i;
i:=m+1
end ;
 
end ;
 
begin
write (' Įrašykite skaičių ');
read (sk);
write (' Įrašykite kitą skaičių ');
read (sk2);
dbdmbk (sk, sk2, dbd, mbk);
writeln (' Didžiausias bendras daliklis - ', dbd);
readln;
writeln ('Mažiausias bendras kartotinis - ', mbk);
readln;
end.

program lyginis_ar_nelyginis;
var a : integer;
begin
  WriteLn('Iveskite pirma skaičiu');
  read(a);
  if (a)/2;
  then writeln ('')
  else if ()
   then writeln ('')
   readLn;
end.

program lyginis_ar_nelyginis;
var a : integer;
begin
  WriteLn('Iveskite pirma skaičiu');
  read(a);
  if a mod 2 = 0
  then writeln ('TAIP')
  else
 writeln ('NE');
  readLn;
end.

if a mod 2=0;

if a mod 2=1;

program Bevarde0;
var a,b,c,suma, apvalinimas, apvalinimas1 :integer;
var saknis, saknis1, x1, x2 :real;
begin
  // Diskriminanto gavimas
  WriteLn('Įrašykite a b c:');
  ReadLn(a,b,c);
  suma:= sqr(b)-4*a*c;
  WriteLn('Diskriminantas:',suma);
  saknis:= sqrt(suma);
  // x1
  x1:= (-b-saknis)/2*a;
  apvalinimas:= round(x1);
  WriteLn('x1=',apvalinimas);
  // x2
  x2:= (-b+saknis)/2*a;
  apvalinimas1:= round(x2);
  WriteLn('x2=',apvalinimas1);
  Readln;
end.

program LyginisNelyginis;
var a, b : integer;
begin
writeln('1 skaicius:');
readln(a);
b := a mod 2;
if b=1 then writeln('Nelyginis')
else
writeln('Lyginis');
readln
end.
 

program daugyba_;
var a, b : integer;
begin
  WriteLn('Iveskite pirma skačiu');
  read(a);
  WriteLn('Iveskite antra skaičiu');
  read(b);
  writeLn(a*b);
  if a*b mod 2 = 0
  then writeLn ('taip')
  else
  writeLn('Ne');
  Readln;
  ReadLn;
end.

 
program petriukas;
var a : integer;
begin
  WriteLn('Iveskite keik pinigu turėjo Petriukas');
  read(a);
  writeLn(a div 2)+(treciadieni puse pasiskolintos sumos grazino)+(ketvirtadieni Petriukas dar gavo 0.3 karto daugiau litu nei 100 diena.);
  Readln;
  Readln;
end.

program Bevardė6;
var a,b:integer;
begin
  WriteLn('Iveskite du sckaičius');
  Read(a,b);
  WriteLn('Atsakymas:', a div 2, b div 2);
  Readln;
  ReadLn;
end.

program Bevarde;
var a, b : integer;
begin
  WriteLn('Iveskite du sckaicius');
  Read(a,b);
  WriteLn('Atsakymas:', a div 2, ' ', b div 2);
  Readln;
end.

program kelimas_laipsniu;
var a:longint;
begin
  WriteLn('Skaičius');
  Read(a);
  a:=2;
  a:=a*a;
  a:=a*a;
  Write(a);
  ReadLn;
  ReadLn;
end.

program perimetras_plotas;
var a,b:integer;
begin
  WriteLn('Iveskite stačiakampio ilgį:');
  Read(a);
  WriteLn('Iveskite stačiakampio plotį:');
  Read(b);
  WriteLn('Plotas:',a*b,'Perimetras:',a+b+a+b);
  Readln;
  ReadLn;
end.

program Bevardė6;
var a,b,c:longint;
begin
  WriteLn('Iveskite a:');
  Read(a);
  WriteLn('Iveskite b:');
  Read(b);
  WriteLn(a*a, b*b, c*c);
  b:=a*a;
  c:=b*b;
  Readln;
end.

program laipsniai;
var a,b,c,rez : longint;
begin
 Write('Įrašykite laipsnio pagrindą: ');
 Readln(a);
 rez:=1;
 Write('Įrašykite laipsnio rodilkį: ');
 Readln(b);
 begin
   for c:=1 to b do
     begin
       rez:=rez*a;
     end;
 end;
 WriteLn(rez);
 ReadLn;
 end.

program laipsniai;
var a:integer;
begin
 Write('Įrašykite skaičių: ');
 Readln(a);
 WriteLn('Pakėlus 9 laipsniu bus ',a*a*a*a*a*a*a*a*a);
 ReadLn;
 end.

 
:1
Writeln('Sveikas');
goto 1
goto 1
goto 1
Readln;
 

 
program Bevardė6;
var a,b,c:longint;
begin
  WriteLn('Iveskite a');
  Read(a);
  a:=a*a;
  b:=a*a;
  c:=b*b;
  Write(c);
end.

Užduotys savarankiškam darbui:
 
1. Duoti du plokštumos taškai A(x1;y1) ir B(x2;y2). Nustatykite, kuris iš jų arčiau abscisių (OX) ašies.
 
2. Duo ti trys sveikieji skaičiai a, b ir c. Nustatykite, ar tarp jų yra lyginių skaičių. 
 
3. Ar tarp skaičių a, b, c yra bent viena pora atvirkštinių skaičių?
 
4. Duotas triženklis skaičius. Nustatykite, ar jo skaitmenys išdėstyti didėjančiai.
 
5. Duotas triženklis skaičius n. Sudarykite naują triženklį skaičių, kurio skaitmenys tokie pat kaip duotojo skaičiaus n, tik išdėstyti mažėjimo tvarka. 
 
6. Duoti trys sveikieji skaičiai a, b, c. Raskite dviejų didesnių sandaugą. 
 
7. Duoti trys sveikieji skaičiai a, b, ir c. Nustatykite, ar galima iš tokio ilgio atkarpų sudaryti statųjį trikampį.
 
---
 
8. Raskite nelygybės ax + b < 0 sprendinius.
 
9. Nustatyti, ar taškas M(x; y) priklauso trikampiui ABC, kurio viršūnėmis yra taškai A(a; 0), B(0; a) ir C(0; 0)? 
 
10. Nustatykite, ar galima rąstą, kurio skersmuo d, išimti pro stačiakampę angą, kurios plotis l ir aukštis h? 
 
11. Raskite lygties ax2 + bx + c = 0 sprendinius. 
 
12. Raskite dviejų tiesinių lygčių su dviem nežinomaisiais sistemos sprendinį: 
 
 
13. Patikrinkite, kuris iš taškų A(x1; y1), B(x2; y2), C(x3; y3) priklauso sričiai:
 
 
14. Laikrodžio rodomą laiką, išreikštą valandomis minutėmis ir sekundėmis padidinkite viena sekunde. Parodykite pradinį ir po sekundes gautą laiką. 
 
15.  Nustatykite galimas apskritimo x2 + y2 = r2 ir tiesės y = kx + b padėtis (kertasi, liečiasi, neturi bendrų taškų).

Užduotys savarankiškam darbui: 
 
Nustatyti, ar skaičius pirminis ar sudėtinis. Jei sudėtinis – rasti jo daliklius ir jų kiekį. 
 
Sugeneruokite skaičių seką iš intervalo [x; y]. Sekoje turi būti 40 narių. Raskite, kurie sekos nariai nesidalija iš 2 ir 7. Kiek tokių skaičių buvo sugeneruota?
 
Taupomasis bankas indėlininkams moka 3% dydžio metines palūkanas, kurios skaičiuojamos kiekvienų metų gale. Sudaryti programą, kuri, nurodžius indėlio dydį ir trukmę metais, suskaičiuotų palūkanų sumą. 
Natūraliojo skaičiaus n skaitmenis užrašykite atbulai ir gautą skaičių ir duotąjį parodykite ekrane. 
Kiek yra natūraliųjų skaičių n (n < 13), kurių ketvirtieji laipsniai baigiasi 6? Parodykite juos ekrane. 
 
Kiek metų reikia laikyti pinigus taupomajame banke, kad, mokant 5% metinių palūkanų, pradinis indėlis padvigubėtų?
 
Raskite dviejų natūraliųjų skaičių m ir n didžiausią bendrą daliklį.
 
Apskaičiuokite sumą: 
S = 1×n + 2×(n-1) + 3×(n-2) +...+ (n-1)×2 + n×1

Užduotys savarankiškam darbui: 
 
Parašykite funkciją, nustatančią, ar skaičius baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 133 arba 1244). Sudarykite programą, kuri rastų visus dviženklius skaičius, kurių kvadratas baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 122=144). Kiek tokių dviženklių skaičių yra? 
 
Funkcija nustato, ar trys natūralieji skaičiai gali būti stačiojo trikampio kraštinėmis. Raskite visus triženklius skaičius, kurių skaitmenys yra stačiojo trikampio kraštinių ilgiai. 
Funkcija nustato, ar duotas natūralusis skaičius pirminis. Raskite visus intervalo [x; y] pirminius skaičius. Jeigu pirminių intervale nėra - informuokite.
Funkcija apskaičiuoja duotojo sveiko skaičiaus faktorialą. Pasinaudodami funkcija patikrinkite, ar teisinga nelygybė, kai n duotas skaičius:
 
Procedūra nustato, ar natūralusis skaičius n dalosi iš jo skaitmenų kvadratų sumos? Parodykite visus triženklius skaičius, pasižyminčius šia savybe. 
Procedūra nustato, ar natūralusis skaičius n dalosi iš jo daliklių, nelygių 1 ir n, sumos? Parodykite visus dviženklius skaičius, nepasižyminčius tokia savybe. 
Procedūra nustato, ar triženklio skaičiaus kvadrato paskutinieji skaitmenys sudaro tą patį skaičių? Parodykite visus triženklius skaičius, pasižyminčius šia savybe.

Užduotys savarankiškam darbui:
 
1. Parodykite ekrane tuos masyvo elementus, kurie patenka į intervalą [x; y]. Jeigu tokių nėra - informuokite.
 
2. Duotas realiųjų skaičių masyvas iš n elementų. Raskite masyvo elementų aritmetinį vidurkį. 
 
3. Sugenerukite du vienmačius realiųjų skaičių masyvus, turinčius po n elementų: 
raskite tų masyvų atitinkamų elementų sandaugų sumą; 
raskite tų masyvų atitinkamų elementų sumų sandaugą; 
nustatykite ar lygūs tų masyvų atitinkami elementai. 
 
4. Į naują masyvą sudėkite tuos duoto masyvo elementus, kurių paskutinis skaitmuo lygus 5. Abu masyvus parodykite.
 
5. Duotas realiųjų skaičių masyvas a iš n elementų. Sudarykite naują masyvą b, kurio elementai apskaičiuojami pagal formulę: b[i]=(a[i]+a[n])/2.
 
6. Duotas vienmatis masyvas a iš n skirtingų elementų ir vienmatis masyvas b iš m skirtingų elementų. Raskite tokius masyvo a elementus, kurių nėra masyve b.
 
7. Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Į naują masyvą sudėkite tik tuos elementus, kurių numeriai yra sudėtiniai skaičiai.
 
8. Duotas vienmatis sveikųjų skaičių masyvas iš n elementų. Raskite duoto masyvo medianą (Mediana vadinamas sutvarkyto masyvo vidurinis elementas, kai masyvo elementų kiekis nelyginis, ir dviejų vidurinių elementų aritmetinis vidurkis, kai masyvo elementų kiekis - lyginis).
 
9.Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Masyvo elementai gali būti 0, 1 arba 2. Sutvarkykite masyvo elementus taip, kad pradžioje būtų vienetai, po to nuliai, o pabaigoje dvejetai.

Užduotys savarankiškam darbui:
Duoti trys žodžiai. Iš jų sudarykite sakinį ir parodykite ekrane. 
Duotas sakinys. Kiek jame skyrybos ženklų? 
Kiek duotame sakinyje žodžių, kurie prasideda ir baigiasi raide 's'? 
Pirmą sakinio žodį sukeiskite su paskutiniuoju. 
Duotas sakinys. Nustatykite, ar jame yra žodis x. Jeigu žodis yra, pakeiskite jį žodžiu y. Pakeistą sakinį parodykite ekrane.
Raskite ilgiausią duotojo sakinio žodį.
Rašant tekstą „drebėjo“ ranka ir kai kur pasirašė vietoje vienos raidės kelios tos pačios. Išmeskite iš teksto tas nereikalingas raides. 
Sakinyje be raidžių yra ir skaitmenų. Tuos skaitmenis išrinkite ir sudarykite didžiausią galimą sveiką skaičių. 
Duotas masyvas, kurio elementai Jūsų grupės draugų vardai. Papildykite masyvą dviem naujais vardais, sutvarkykite naują sąrašą abėcėlės tvarka ir parodykite ekrane. 
Duotojo sakinio žodžius išdėstykite abėcėlės tvarka. 
Duotas sakinys, kuriame yra skaičių. Nustatykite, ar sakinyje yra bent vienas skaičius, kuris dalijasi iš 3. 
Duota data užrašoma pilnu formatu (pvz. 2007 m. rugsėjo mėn. 10 d.). Sudarykite programą, kuri duotą datą užrašytų sutrumpintu formatu (pvz. 2007.09.10).

Užduotys savarankiškam darbui: 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve? 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą. 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia. 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį. 
Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu. 
Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:
a[i,j]=i j . 
Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje. 
Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.

Užduotys savarankiškam darbui: 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve? 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą. 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia. 
Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį. 
Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu. 
Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:
a[i,j]=i j . 
Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje. 
Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.
Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.

program laipsnis;
 var a,laip: integer;
begin
 writeln ('Iveskite skaiciu: ');
  readln (a);
  laip:=sqr(a);
  writeln('pakelus ',a ,' kvadratu, gauname: ',laip);
  Readln;
end.

program sandauga;
var a,b,san : real; {nes kad galetum per kableli daugint}
begin
  WriteLn('iveskite pirma skaiciu: ');
  Readln (a);
  WriteLn('iveskite antra skaiciu: ');
  Readln (b);
  san:=a*b;
  writeln ('atsakymas : ',san:2:2);
  readln;
end.

program laipsnis;
 
 var a,laip: integer;
 
begin
 
 writeln ('Iveskite skaiciu: ');
 
  readln (a);
 
  laip:=sqr(a);
 
  writeln('pakelus ',a ,' kvadratu, gauname: ',laip);
 
  Readln;
 
end.

program laipsnis;
 var a,n: integer;  rez:real;
begin
 writeln ('Iveskite skaiciu: ');
 readln (a);
 writeln ('iveskite kelintu laipsniu kelsite :');
 readln (n);
  rez:= power(a, 1*n);  {jeigu nori kad butu saknis betkokiu laipsniu tai vietoi * bus / }
 writeln('pakelus ',a ,' kvadratu, gauname: ',Round(rez));
  Readln;
end.

program Bevardė7;
var x,z,a2,a4,a8,a16:longint;
begin
WriteLn('Iveskite skaičiu');
Read(x);
a2:=x*x;
a4:=a2*a2;
a8:=a4*a4;
a16:=a8*a8;
z:=a16*a8*a4;
Write(z);
ReadLn;
Readln;
end.

program Bevardė7;
var x:integer;
begin
  WriteLn('Iveskite x');
  ReadLn(x);
  if x<5 then
  writeLn('x yra mažiau už 5 ir jis yra lygus:',x)
  else if x>5 then
  writeLn('x yra daugiau už 5 ir jis yra lygus:',x);
  ReadLn;
  Readln;
end.
 

program Bevardė7;
 
var x:integer;
 
begin
 
  WriteLn('Iveskite x');
 
  ReadLn(x);
 
  if x<=5 then
 
  writeLn('x yra mažiau už 5 ir jis yra lygus:',x)
 
  else
 
  writeLn('x yra daugiau už 5 ir jis yra lygus:',x);
 
  ReadLn;
 
  Readln;
 
end.
 
 

program Bevardė7;
var a,b:integer;
begin
  WriteLn('Iveskite a');
  Read(a);
  WriteLn('Iveskite b');
  Read(b);
  if a=b then
  writeLn(a,'ir',b,'yra lygu')
  else
end.

program Bevarde7;
var a,b,c:integer;
begin
 WriteLn('Iveskite a');
 Readln(a);
 WriteLn('Iveskite b');
 Readln(b);
 if (a=b)
 then writeln (a,'lygus',b)
 else if (a<>b)
      then c:=a div b;
      writeln (c);
readln;
end.

program Bevarde7;
var a,b,c:integer;
begin
 WriteLn('Iveskite a');
 Readln(a);
 WriteLn('Iveskite b');
 Readln(b);
 if (a=b)
 then writeln (a,'lygus',b)
 else if (a>b)
 then c:=a div b
 else if (b>a)
      then c:=b div a;
 writeln ('atsakymas',c);
 readln;
end.

if a,b,c,d,e,f<50 

Besilaikanti dietos moklseivė svarstyklėmis pasvėrė šešis pyragaičius

program Bevarde10;
var i,x,y,z,q : integer;
begin
z:=0;
q:=0;
   for i:= 1 to 6 do
    begin
    Read(x);
  if x < 50 then
    z:=x+z
  else
   q:=q+1;
   end;
Writeln(z,' ',q);
end.

program pyragaiciai;
var
  mas:array[0..6] of integer;
  a,b,c,d,e,f:integer;
begin
 Writeln('Iveskite 1 pyragaičio svori');
 ReadLn(a);
 Writeln('Iveskite 2 pyragaičio svori');
 ReadLn(b);
 Writeln('Iveskite 3 pyragaičio svori');
 ReadLn(c);
 Writeln('Iveskite 4 pyragaičio svori');
 ReadLn(d);
 Writeln('Iveskite 5 pyragaičio svori');
 ReadLn(e);
 Writeln('Iveskite 6 pyragaičio svori');
 ReadLn(f);
 begin
 
 end
end.

program dieta;
    var svoris, liko, i : integer;
        gr : array[1 .. 1000] of integer;
begin
//pradines reiksmes
svoris := 0;
liko := 0;
 
//nuskaitom svorius
  WriteLn('Labas, prasau ivesti 6 pirageliu svorius paeiliui');
    for i:=1 to 6 do read(gr[i]);
 
//tikrinam kiek suvalge ir kiek svere suvalgyti
   for i:=1 to 6 do
        begin
            if ( gr[i] < 50 ) then svoris := svoris + gr[i] else liko := liko + 1;
    end;
 
//isvedam informacija
 
writeln('Mergaite suvartojo ', svoris, ' gramu saldumynu. Vakarui pasiliko ', liko,' bandeles');
  Readln;
 Readln;
 Readln;
end.

program Bevarde36;
var x:integer;
begin
  readln(x);
  while -8 < x  do
  Begin
  if x < 0 then Writeln(x,' -8 < x < 0 TINKA')
  else Writeln(x,'-8 < x < 0 Netinka');
  x := x + 1;
  Readln(x);
  end;
end.  

program palukanos;
var
ind,s:real;
t,p:integer;
begin
  ind := 1000;
  S := 1200;
  p := 5;
  while ind < S do
    begin
    t := t + 1;
    ind := ind * (1 + p / 100)
    end;
  Writeln('Pinigai priauks po: ', t ,'metų');
ReadLn;
end.