1. В операционной системе Windows создайте на рабочем столе папку Archives. Создайте в этой папке еще две папки Pictures и Documents. 2. Найдите и скопируйте в папку Pictures по два рисунка с расширением *.jpg и *.bmp. 3. Сравните размеры файлов *.bmp и *.jpg. и запишите данные в таблицу_1. 4. В папку Documents поместите файлы *.doc (не менее 3) и запишите их исходные размеры в таблицу_1.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15

Эта прога может работать не только с 4-ех значными числами
Она на Pascal.

var a,last_num,first_num:integer;

begin
Write('Введите число');
read(a);
last_num:=a mod 10;
first_num:=a;
while first_num>10 do
begin
first_num:= first_num div 10;
end;
writeln('Последняя цифра ', last_num, ', Первая цифра ', first_num);
if first_num > last_num then
writeln('Первая цифра больше')
else if first_num = last_num then
writeln('Они равны')
else if last_num > first_num then
writeln('Последняя цифра больше');
end.