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) then	
	begin
		if(sk1>sk3) then
			writeln('Didziausias', sk1)
		else writeln('Didziausias', sk3);
	end
	else
		begin
			if(sk2>sk3) then
				writeln('Didziausias', sk2);
			else
				writeln('Didziausias', sk3);
		end;
    Readln;
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.

Program Vardas;
uses graph,
begin
ekranas;
end.

unit Grafika;
 
interface
uses Grafika,Graph;
procedure ekranas;
 
implementation
Procedure Ekranas;
var gd,gm : integer;
begin
 (*gd := D8Bit; (8Bitu kodas*)
 gd := Detect;//Full window(pilnas langas)=detect; m640x480=Lango dydis jei  m640x480 tada reikia gd pakeisti i gm
 Initgraph(gd,gm,' ');
 {Isitikinkite, kad visada paziurite Graphresult!}
if GraphResult<>grOK then begin
 //WriteLn('Programa negalima naudotis atsiprasome(Can't use this program sorry');
halt(1);
 end;
 {Mes dabar esame pilname lange(We now in full screen}
end;
begin
end.