Рабочий-наладчик получил задание наладить определенное количество станков в намеченный срок

[Vadim228]

Рабочий-наладчик получил задание наладить определенное количество станков в намеченный срок. Определить, будет ли выполнено задание, если известны время на наладку каждого станка и вре¬мя, затрачиваемое на переход к другому станку после очередной наладки. Если данная работа не может быть выполнена в намеченный срок, то определить, на какой срок следует продлить выполнение задания.

[Stilet]

Type
 TWork=record
  Supp,Go:Integer; {В секундах}
 end;
var a:array[1..2] of TWork; i,s:integer; 
begin
 Write('Сколько дадено времени?: ');readln(s); 
 for i:=1 to 2 do With a[i] do begin
  Write('Сколько налаживать ',i,'-тый станок? ');Readln(Supp);
  Write('Сколько топать до ',i+1,'-того станка? ');Readln(Go);
  s:=s-(Supp+Go);
 end;
 if s>0 Then Write('Ща все сделаем насяльника')
 else Write('Не успеем, насяльника. Додай еще ',-s,' секундав');
 Readln;
end.