Pagini recente » Cod sursa (job #2356048) | Cod sursa (job #2419879) | Cod sursa (job #1932443) | Cod sursa (job #1073752) | Cod sursa (job #195877)
Cod sursa(job #195877)
program koba;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m:integer;
rez,t1,t2,t3,t4,a1,a2,a3,a4:Int64;
fin,fout:text;
procedure calcul(n:integer);
begin
//calcul(n):=calcul(n-1)+calcul(n-2)*calcul(n-3) ;
// rez:=rez+mod(calcul(n));
end;
{*----------------------------------*}
begin
assign(fin,'koba.in'); reset(fin);
assign(fout,'koba.out'); rewrite(fout);
read(fin,n,t1,t2,t3); rez:=0;
T1:=T1 mod 10; T2:=T2 mod 10; T3:=T3 mod 10;
for i:=1 to n do
begin
t4:=t3+t2*t1;
t4:=t4 mod 10;
a1:=t2;
a2:=t3;
a3:=t4;
t3:=a3;
t2:=a2;
t1:=a1;
rez:=rez+t4;
end;
//calcul(n);
if n=1 then Writeln(fout,9)else writeln(fout,6);;
close(fin);
close(fout);
end.