Можете помочь написать программы??

Неизвестен язык программирования.
Непонятен язык вопроса.

Заметил такую интересную штуку.
На этом проекте, находящемся в доменной зоне RU и, по-определению, предполагающему общение на русском языке, крутится народ из разных стран: Грузия, Армения, Казахстан, Беларусь etc.
Все эти люди таки и пишут по-русски, пусть некоторые и с ошибками, но по-русски. Чтобы их понимали остальные.
И только типы из Незалежной (не все, но что есть, то есть) отчего-то, не заморачиваясь, строчат свои опусы на своей родной мове. На что они надеются? Либо им там головы настолько забили всякой шнягой, что они русского языка бояться как огня? Или не боятся, а испытывают отвращение и брезгливость?

PS^ Пиши по-русски, чудак на букву "м". Тут за это не наказывают, тут это приветствуется.
PSS^ Накипело просто.

на каком языке?

Если я правильно понял что тут написано в задании, то решение примерно такое
1) Найти количество латинских букв и количество цифр в текстовой строке:
var st: string;
i, l, letter, number: integer;
st_num, st_let: string;
begin
Write('Введите строку');
Readln(st);
st_num:= '0123456789';
st_let:= 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
l:= Length(st);
letter:= 0;
number:= 0;
for i:= 1 to l do
begin
if (pos(st[i], st_num) <> 0) then number:= number + 1;
if (pos(st[i], st_let) <> 0) then letter:= letter+ 1;
end;
Writeln('Количество латинских букв в строке: ', letter);
Writeln('Количество цифр в строке: ', number);
Readln;
end;

2) Определить тип данных Data, который описывает номера года, месяца и дня.
Найти длину промежутка времени между двумя датами.

uses DateUtils;

type
Data = record
Year: Integer;
Month: Byte;
Day: Byte;
end;

var dat1, dat2: Data;
dt1, dt2: TDateTime;
res: Integer;
begin
Writeln('Введите год у первой даты');
Readln(dat1.Year);
Writeln('Введите месяц у первой даты');
Readln(dat1.Month);
Writeln('Введите день у первой даты');
Readln(dat1.Day);
Writeln('Введите год у второй даты');
Readln(dat2.Year);
Writeln('Введите месяц у второй даты');
Readln(dat2.Month);
Writeln('Введите день у второй даты');
Readln(dat2.Day);

dt1:= EncodeDateTime(dat1.Year, dat1.Month, dat1.Day, 0, 0, 0, 0);
dt2:= EncodeDateTime(dat2.Year, dat2.Month, dat2.Day, 0, 0, 0, 0);

res:= Trunc(dt1 - dt2);
Writeln('Разница между двумя датами: ', res, ' дней');
Readln;
end;

Вот как то так.