小鱼的航程(改进版)

洛谷-P1424-小鱼的航程(改进版)

题目描述：

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

输入样例：
3 10

输出样例：
2000

解题思路：
一个while就解决了，要注意下天数的转换。

var
        x,n,ans:longint;
begin
        readln(x,n);
        ans:=0;
        while n>0 do
        begin
                if x<6 then ans:=ans+