В ячейке А5 электронной таблицы находится суммарная стои- мость товаров, заказанных Иваном А. в интернет-магазине. Формула, позволяющая подсчитать полную стоимость заказа, с учётом стоимости его доставки, имеет вид: —ЕСЛИ (А5> -2000%; А5; BА5 + 150 По данной формуле постройте блок-схему. Определите, какие льготы налогоплательщику в случае, если суммарная стоимость заказанных им товаров превышает .

//Dev-C++ (С)

#include <stdio.h>

int main(void)
 {int DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin;
 scanf("%d %d %d %d",&DepHour,&DepMin,&DurHour,&DurMin);
 if(DepMin+DurMin>=60)
  {ArrHour=DepHour+DurHour+1;
    ArrMin=DepMin+DurMin-60;}
   else
    {ArrHour=DepHour+DurHour;
    ArrMin=DepMin+DurMin;}
   printf("%d:%d",ArrHour,ArrMin);
 return 0;}

//PascalABC.NET 3.2 сборка 1318

Var 
DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer;
begin
readln(DepHour,DepMin,DurHour,DurMin);
if DepMin+DurMin>=60 then
 begin
  ArrHour:=DepHour+DurHour+1;
  ArrMin:=DepMin+DurMin-60;
 end
 else
 begin
  ArrHour:=DepHour+DurHour;
  ArrMin:=DepMin+DurMin;
 end;
 write(ArrHour,':',ArrMin);
 end.

Пример ввода:
1 40 12 23
Пример вывода:
14:3

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969