1)
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
2)
program test;
var number, temp: integer;
begin
write('Enter the number: ');
readln(number);
temp:=number mod 10;
writeln(temp, '^2=', temp*temp);
readln;
end.
Var a,b,s
begin
readln
end.
1) Круговая
2) Диаграмма
3) Наглядно
4) Таблица
5) По горизонтали - Схема
5) По вертикали - Столбчатая
6) Иллюстрация
7) Текст
по моему не одного вопроса не пропустил но если что то осталось пишите коммент