Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
1024байта - 1024*8=8192 бит
1024 кбайта - 8192000 бит
1024 гбайта - 8192000000000 бит
Добрая-хорошая,гневная-вспыльчивая.
Надо выбрать определенную фигуру или просто начертить прямую линию..и подрисовать две палочки я так делаюю попробуй
var
a, b: <em>real</em>;
begin
readln(a, b);
writeln(a / 10 < b / 4 ? trunc(a / 10) : trunc(b / 4), ' days');
<span>end.</span>