ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1636. Штрафное время

where is mistake? SOS
Послано Dior 23 июн 2014 21:05
var
m:array [1..10] of integer;
q,z,i,s:integer;

begin
read(q);
write(' ');
read(z);

readln(m[1]);
s:=m[1];

 for i:=2 to 10 do
 begin
 write(' ');
 read(m[i]);
 s:=s+m[i];
 end;

 s:=s*20;

 if z-s>=q then write('No chance.')
 else write('Dirty debug :(');
 end.