Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.
1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
21122
Решение:
8-1=7
7*3=21
21*3=63
63-1=62
62-1=61
1.
У лукоморья дуб зеленый;
Златая цепь на дубе том:
И днем и ночью кот ученый
Все ходит по цепи кругом:
<span><span>Идет
направо </span>– песнь заводит,</span><span><span>Налево - сказку говорит</span>,</span>
Там чудеса: там леший бродит,
<span>Русалка на ветвях сидит… </span><span><span> </span>(А.С.Пушкин)</span>
2. Колобок
3. Репка
4. Не помню названия, но "...налево пойдешь - коня потеряешь и т. д."
Пуск-Панель управления-Мышь- Свойство