//PascalABC.NET
//Версия 3.3, сборка 1634
begin
range(10,99).Where(x->x*x mod 13=0).Println;
end.
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
Переведём гигобайты в мегабайты:
1024 * 2 = 2048 мб (на флешке)
Потом узнаем размер 4-ёх папок:
635 * 4 = 2540 мб
И узнаем, сколько места нам не хватит:
2540 - 2048 = 492 мб
Ответ: не хватит 492 мб