2)дано целое число. определить - а) является ли оно четным - б)оканчивается ли нон цифрой 7 -в) оканчивается ли оно четной цифрой. составное условие не используется.

Var
a,b : integer;
begin
b := 0;
readln(a);
if a mod 2 = 0 then writeln('Число четное');
else writeln ('Число нечетное');

b := a mod 10;

if b = 7 then writeln('Число заканчивается на 7');
else writeln('Число не заканчивается на 7');

if b mod 2 = 0 then writeln('Число оканчивается четным числом');
else writeln('Число не оканчивается черным числом');

end.

Простые темы:
-Компьютер и человечество/ наука.
(учитываю главу 2 ,по учебнику Босова,Тема: Компьютер как универсальное устройство для работы с информацией)
-Что такое мультимедиа?
-Что такое информация?
Средние темы:
-Текстовый редактор и как он устроен?
 (учитываю главу 4,по информатике 7 класс Босова.Озаглавление:Обработка текстовой информации)
-Программы в компьютере,зачем нужно программное обеспечение?
Немного сложные темы:
-Информация в компьютере.Какова роль информации в компьютере?
-Зачем нужно кодирование?Что такое код в информатике?

Надеюсь,я подобрал подходящие темы для твоей презентации,удачи.

Program pr3;
Var A : array [1..100, 1..100] of integer ; {резервирование памяти под массивы}
B : array [1..100, 1..100] of integer ;
C : array [1..100, 1..100] of integer ;
m, n, i,j: integer ; {переменные i,j вводятся как индексы массива}
Begin
randomize;
writeln ('Введите размерность матриц m и n (числа <100)');
readln (m, n);
For i:=1 to m do
For j:=1 to n do
begin
A[i,j]:=random (20)-10; {ввод элемента матрицы}
B[i,j]:=random (20)-10; {ввод элемента матрицы}
end;
writeln ('Итоговая матрица A: ');
For i:=1 to m do
begin
For j:=1 to n do write (A[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
writeln ('Итоговая матрица B: ');
For i:=1 to m do
begin
For j:=1 to n do write (B[i,j], ' '); {вывод элементов производится в виде матрицы }
writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
writeln;
For i:=1 to m do {цикл по всем строкам матрицы}
For j:=1 to n do {цикл по всем столбцам матрицы}
if (A[i,j] < B[i,j]) then C[i,j] := B[i,j] else C[i,j] := A[i,j];
writeln ('Итоговая матрица C: ');
For i:=1 to m do
begin
For j:=1 to n do write (C[i,j], ' '); {вывод элементов производится в виде матрицы } writeln; {после перебора всех столбцов одной строки – переход новую строку}
end;
end.