program Noname1;

var c1, c2, sk, sek, ats, skait : real;

begin

read(sk);

read(sek);

ats:= 0;

skait:= 0;

for c1:= 1 to sek do // kelintas skaicius

begin

for c2:= 1 to c1 do // kelintas skaitmuo

begin

skait:= skait * 10 + sk;

end;

 ats:= ats + skait;

 skait:= 0;

 

end;

  WriteLn(ats);

end.

program Noname0;

var sk, i: longint;    // kintamieji

mas : array [1..5] of longint;      // sukuriamas masyvas

begin

  Read(sk);      // irasomas penkiazenklis skaicius

  for i:= 1 to 5 do      // ciklas kuris padeda skaidyti skaiciu

  begin                  // ciklo pradzia

  mas[i]:= sk mod 10;     // skaidymas

  sk:= sk div 10;         // skaidymas

  end;                   // ciklo pabaiga

  Write(mas[5],mas[4],mas[2],mas[1]); // rasomas skaicius be vidurinio

  Readln;

end.

program Noname0;

var sk, i, i2: longint;

mas : array [1..5] of longint;

begin

  Read(sk);

  for i:= 1 to 5 do

  begin

  mas[i]:= sk mod 10;

  sk:= sk div 10;

  end;

  Write(mas[5],mas[4],mas[3],mas[2],mas[1]);

 for i:= 0 to 9 do

begin

for i2:= 1 to 5 do

 

//

// Čia niekaip nesugalvoju...

//

 

end;

end;

  Readln;

end.

program Noname4;

var sk1, sk2, sk3, did, maz, i: integer;

begin

  Read(sk1,sk2,sk3);

  for i:= 1 to 1 do

  begin

  if (sk1 - sk2) or (sk1 - sk3) > 0 then

  did:= sk1

  else

  if (sk2 - sk1) or (sk2 - sk3) > 0 then

  did:= sk2

  else

  if (sk3 - sk1) or (sk3 - sk2) > 0 then

  did:= sk3;

  Writeln('//////////');

  Writeln(did);

  if (sk1 - sk2) and (sk1 - sk3) < 0 then

  maz:= sk1

  else

  if (sk2 - sk1) and (sk2 - sk3) < 0 then

  maz:= sk2

  else

  if (sk3 - sk1) and (sk3 - sk2) < 0 then

  maz:= sk3;

  Writeln(maz);

  Writeln('//////////');

  end;

  if (sk1 > maz) and (sk1 < did)

  then write(sk1)

  else

  if (sk2 > maz) and (sk2 < did)

  then write(sk2)

  else

  if (sk3 > maz) and (sk3 < did)

  then write(sk3);

  Read;

end.

program Noname4;

var sk1, sk2, sk3: integer;

begin

  Read(sk1,sk2,sk3);

		if((sk1>sk2 AND sk1<sk3) OR (sk1<sk2 AND sk1>sk3)) then writeln('Vidutinis', sk1)

		else if((sk2>sk1 AND sk2<sk3) OR (sk2<sk1 AND sk2>sk3)) then writeln('Vidutinis', sk2)

		else if((sk3>sk1 AND sk3<sk2) OR (sk3<sk1 AND sk3>sk2)) then writeln('Vidutinis', sk3)

		else writeln('Yra vienodu skaiciu');

    Readln;

end.

program Noname4;

var x, y, kiek, n, i: integer;

imk, ats : text;

skirst : string;

begin

    x:= 1;

    y:= 1;

  Assign(imk,'info.txt');

  reset(imk);

  readln(imk,n);

    if (n < 1) or (n > 50) then

  write('Iseita is ribojimo');

  readln(imk, kiek);

  if (kiek < 1) or (kiek > 1000) then

  write('Iseita is ribojimo');

  for i:= 1 to kiek do

  begin

  readln(imk,skirst);

  if skirst = 'V' then

  x:= x - 1

  else if skirst = 'R' then

  x:= x + 1

  else if skirst = 'P' then

  y:= y + 1

  else if skirst = 'S' then

  y:= y - 1;

  if x = 0 then

  x:= 1;

  if y = 0 then

  y:= 1;

  if x = n + 1 then

  x:= n;

  if y = n + 1 then

  y:= n;

  end;

  assign(ats,'rez.txt');

  rewrite(ats);

  write(ats,x,' ',y);

  close(ats);

  close(imk);

  Readln;

end.

program Noname5;

var n, p, s, ats, last, viso: integer;

begin

  Write('Gauta litu: ');

  Read(n);

  Write('Paskutine diena suringta litu: ');

  Read(p);

  last:= p div 8;

  s:= n - p;

  ats:= s div 5;

  viso:= ats + last;

  Write(viso);

  Readln;

end.

program Noname5;

    var date: char;

          i, yy, mm, dd : integer;

begin

    for i:= 1 to 2  do

begin

     read(date);

     yy:= date; <--- ERROR, nes iš char neina padaryti integer

end;

  Readln;

end.

{Funkcija pakeičianti simbolius į skaičius}

function keitimas(a:char):integer;

    begin

    if a='0' then keitimas:=0;

        if a='1' then keitimas:=1;

            if a='2' then keitimas:=2;

                if a='3' then keitimas:=3;

                    if a='4' then keitimas:=4;

                        if a='5' then keitimas:=5;

                            if a='6' then keitimas:=6;

                                if a='7' then keitimas:=7;

                                    if a='8' then keitimas:=8;

                                        if a='9' then keitimas:=9;

    end;

program Noname11;

var

duom, rez : text;

kiek, i, j, kiekvid : integer;

L, ats, R : real;

 

 

begin

        L:= 0;

        ats:= 0;

            Assign(duom,'Duom1.txt');

            Assign(rez,'Rez1.txt');

        Reset(duom);

        Reset(rez);

    Readln(duom, kiek);

for i:= 1 to kiek do

    Read(duom, kiekvid);

            begin

for j:= 1 to kiekvid do

            begin

    Read(duom, R);

            L:= L + 1/R;

            end;

            ats:= ats + 1/L;

 

 

            end;

            Write(ats:2:2);

 

 

 

                        Close(duom);

                        Close(rez);

  Readln;

end.

program pirma_uzd;

    const n = 100;

    var duom, rez : text;

        grandinesDaliu, i : integer;

        bendraVarza : real;

        varzos : array[1..n] of real;

 

procedure Skaitom;

    var j, laidininku, laidinkoVarza : integer;

        varza : real;

begin

    assign(duom, 'Duom1.txt');

    reset(duom);

 

    ReadLn(duom, grandinesDaliu);

    Writeln(grandinesDaliu);

 

    for i := 1 to grandinesDaliu do

        begin

            varza := 0;

            Read(duom, laidininku);

            for j := 1 to laidininku do

                begin

                    Read(duom, laidinkoVarza);

                    varza := varza + (1/laidinkoVarza);

                end;

            Varzos[i] := varza;

            Readln(duom);

        end;

    close(duom);

end;

 

begin

    Skaitom;

    for i := 1 to grandinesDaliu do

            bendraVarza := bendraVarza + (1 / Varzos[i]);

 

    assign(rez, 'Rez1.txt');

    rewrite(rez);

    Write(rez, bendraVarza:0:2);

    close(rez);

end.

 

program Noname5;

    type

 

        irasas = record

        vardas : string;

        kiekis : integer;

        suma : real;

        all : real;

        end;

 

        mas = array[1..100] of irasas;

 

        var

        duom, rez : text;

        i, j, kiek : integer;

        M : mas;

        c : real;

 

begin

  // ----------------------------------nuskaitymas------ //

  Assign(duom, 'duom.txt');

  Reset(duom);

  Read(duom, kiek);

  for i:= 1 to kiek do

  begin

  ReadLn(duom, M[i].vardas, M[i].kiekis, M[i].suma);

  end;

  Close(duom);

  // --------------------------------------------------- //

 

  for i:= 1 to kiek do

  begin

  M[i].all:= M[i].kiekis * M[i].suma;

  end;

 

  // -------------------------------------------------- //

 

    for i := 1 to kiek do

          for j := 1 to kiek-i do

             if M[j] > M[j+1] then

                begin

                   c := M[j+1].all;

                   M[j+1].all := M[j].all;

                    M[j].all := c;

                    end;

  // ------------------------------------------------- //

  Assign(rez, 'rez.txt');

  Reset(rez);

  for i:= 1 to kiek do

  begin

  WriteLn(rez,M[i].vardas, ' ',M[i].all);

  end;

  WriteLn(rez,'Didziausias klientas: ', M[1].vardas);

  Write(rez,'Maziausias klientas: ', M[kiek].vardas);

  Close(rez);

 

 

  Readln;

 

end.

program Trikampis;

uses crt;

var a,b,c:real;

/////////////////Procedure trikampio plotas ir perimetras///////////////////////

procedure Perim_plot;

 var

  p,s:real;

 begin

  p:=(a+b+c)/2;

  s:=p*(p-a)*(p-b)*(p-c);

  ClrScr;

  TextColor(green);

  WriteLn('Perimetras:',p:2:2);

  WriteLn('Plotas:',s:2:2);

 end;

/////////////////////////////////////Funkcija status////////////////////////////

function status:real;

 begin

  TextColor(lightred);

  if sqr(a)+sqr(b)=sqr(c) then

  Write('Status')

  else

  Write('Nestatus');

 end;(*status*)

/////////////////////////////////////Funkcija trikampis////////////////////////////

function Trikampis_funkcija:real;

 begin

    TextColor(yellow);

  if a+b>c then

    else

    ClrScr;

    if a+b>c then

    WriteLn('Trikampis')

    else

    ClrScr;

      if a+b>c then

    else

    ClrScr;

    if a+b>c then

    else

    WriteLn('Nera trikampis');

 end;(*Trikampis_funkcija*)

//////////////////////////////Programos isjungimo procedura/////////////////////

 procedure isjungimas;

 begin

  TextColor(red);

  WriteLn('');

  WriteLn('Paspauskite enter ir programa issijungs!');

  TextColor(white);

  Readln;

  Clrscr;

  TextColor(brown);

  window(12,11,40,50);

  WriteLn('Viso gero');

  delay(400);

 end;

///////////////Programa(jeigu paspaudi nuli.Programa issijunks)/////////////////

procedure Jeigu_Nulis;

 begin

   Readln(a);

   If (a<>0) then

   repeat

   Readln(b,c);

   Perim_Plot;

   status;

   Trikampis_funkcija;

   until a<>0

   else

   //halt(0); (*isjungia programa*)

   ClrScr;

   isjungimas;

  end;(*Jeigu nulis*)

////////////////////////////Pagrindine programa/////////////////////////////////

begin

  TextColor(Green);

  WriteLn('Iveskite tris krastines!');

  TextColor(Red);

  WriteLn('Jeigu ivesite nuli(0) programa isijunks paspaudus enter!');

  TextColor(white);

  Jeigu_Nulis;

end.