Дисковод
программатор (редко)
жесткий диск
пожалуй все
Var a:real;
Begin
Write('a = ');ReadLn(a);
WriteLn('S = ',a*a);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A > 0 then A:=A+1;
WriteLn(A)
End.
1.
Потомучто А и Б по сумме одиеаковы.В меньше всех.
Ответ:Я думаю, что это красный и зеленый
Объяснение: