Блок-схема

program zadanie2;
const monthes:array [1..12] of string = ('jan','feb','mar','apr', 'may', 'jun', 'jul','aug','sep', 'oct','nov','dec');
const monthes_l:array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
function getMonthID (s:string):integer;
var i:integer;
begin
        for i:=1 to 12 do
        begin
                if s = monthes[i] then
                begin
                        getMonthId := i;
                        break;
                end;
        end;
end;
type date=record
        day, month:integer;
end;
var a, b: date;
    s:string;
    days:integer;
begin
        write ('Введите первую дату (день, месяц (english)): ');
        read (a.day,s);
        a.month := getMonthID(copy(s, 2, length(s)-1));
        write ('Введите вторую дату (день, месяц (english)): ');
        read (b.day,s);
        b.month := getMonthID(copy(s, 2, length(s)-1));
        days := 0;
        while (a.day <>  b.day) or (a.month <> b.month) do
        begin
                days := days + 1;
                a.day := a.day + 1;
                if a.day > monthes_l[a.month] then
                begin
                        a.month := a.month + 1;
                        a.day := 1;
                end;
        end;
        writeln (days, ' day(s)');
end.