Počas Vianoce sa otec dohodol zo synom, že mu bude od nového roka dávať pevné vreckové N Sk každý týždeň. 

Pre dobré správanie sa však po 1. mesiaci rozhodol, že mu toto vreckové bude od marca (od 10.týždňa) zvyšovať každý týždeň o M korún. 
Napíšte program, ktorý vypočíta, koľko otec vyplatí synovi na vreckovom za 1 rok (N, M sú na vstupe z klávesnice). 
uses crt;
var w,m,n,s:integer;
begin
clrscr;
write('N = ');
readln(n);
write('M = ');
readln(m);
writeln;
s:=0;
for w:=1 to 52 do begin
    s:=s + n;
    if(w>=10) then s:=s+((w-9)*m);
    writeln('Tyzden ',w,' :: ',((w-9)*m)+n,' korun...');
    end;
    writeln;
    writeln('Spolu :: ',s,' korun...');
readln;
end.