Вот, во вложении вся программа, (на free-pascal компиляция и запуск), а файлы, я думаю, вы сами сможете добавить, спрашивайте, если не понятно, удачи
История автомобильного завода ЗиЛ.
Описание какой-нибудь области.
Первый полёт в космос.
Это графическая информация
1) Совокупление живых особей (передача днк и продолжение рода)
2) обезьяньи крики (общение)
3) Перенос информации на флеш-накопителе
4) Радиоволны
5) Ультразвук у летучих мышей
Начало: program p1;
uses crt;
var a,b,c,d,e,f,g,p:integer;
begin
Ввод 7 чисел: read( a,b,c,d,e,f,g);
Происходит умнож: p:=a*b*c*d*e*f*g;
Вывод: write(p);
Конец: end.