Cod 2-0-1-8 it is our year
Uses crt;
begin
writeln('2 кг 13 17');
writeln('a 1 19 b');
write('x y 5 y');
<span>end.</span>
7 бит
___________________________________________
(1024*768*24)/(1024*1024*8)=2,25мб
В первой скобке размер изображения в битах, во второй приводим к мегабайтам
Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.