Минимально и нужно , интересно где еще такое задают
Объем памяти = 1280*1024*32 бит = 1280*1024*32/8 байт =
1280*1024*4/1024 Кбайт = 5120 Кайт = 5120/1024 Мбайт = 5 Мбайт
2 в 16 степени = 65 536 цветов
2 в 8 степени = 256 цветов
2 в 4 степени = 16 цветов
Var a,S,P:integer;
Begin
Readln(a);
S:=a*a;
P:=a*4;
writeln('Периметр = ',P,' Площадь = ',S);
readln;
end.