信息学奥林匹克竞赛-小鱼的航程(改进版)

小鱼的航程(改进版)

题目背景

原来的题目太简单，现改进让小鱼周末也休息，请已经做过重做该题。

题目描述

有一只小鱼，它上午游泳150公里，下午游泳100公里，晚上和周末都休息（实行双休日)，假设从周x(1<=x<=7)开始算起，请问这样过了n天以后，小鱼一共累计游泳了多少公里呢？

输入输出格式

输入格式：

输入两个整数x,n(表示从周x算起，经过n天，n在long int范围内）。

输出格式：

输出一个整数，表示小鱼累计游泳了多少公里。

输入输出样例

输入样例#1：

3 10

输出样例#1：

2000

var
x,n,i,len:longint;
begin
	readln(x,n);
	for i:=x to x+n-1 do
	begin
		if (i mod 7=6) or (i mod 7=0) then
		begin
			continue;
		end;
		len:=len+250;
	end;
	writeln(len);
end.