var a, b, c, i:integer;
begin
read (a,b);
for i:=1 to 7 do
c:=a-b;
write (c, );
end.
7 раз отмерь, один раз отрежь.
P.S. Надеюсь на благодарность и лучший ответ.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.