Var i,d:integer;
uses crt;
Begin
for i:=1 to 20 do begin
d:=sqr(i);
end;
readln;
end.
Не проверял, накидал на быструю руку, но должно работать.
1) = ^А*С+А*В*^С
2) С*(^А+В)+А*В*^С
Флэш-Накопитель
Переносной жесткий диск
Перфокарта
Магнитная лента
Дискет
DVD Диск
32 буквы и 10 цифр=42 знака