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.