11вариант
Области, описываемые логическими выражениями

//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

Поиск простых делителей числа:

var i,j,n:longint;
    f:boolean;
begin
 writeln('Введите число');
 readln(n);
  if n<2 then writeln('Простых делителей нет')
  else
   begin
    write('Число ',n,' ','= 1');
    for i:=2 to n do
     if n mod i=0 then
      begin
       f:=true;
       j:=2;
       while f and(j<=round(sqrt(i/2)))do
        begin
         if i mod j=0 then f:=false
         else j:=j+1;
        end;
      if f then write('*',i);
     end;
   end;
end.

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

Введите число
2345
Число 2345 = 1*5*7*35*67