var x: real;
begin
writeln('Введите число(Кб): ');
readln(x);
writeln(x,' Кб = ',x*1024*8,' бит');
writeln(x,' Кб = ',x*1024,' байт');
writeln(x,' Кб = ',x/1024,' Мб');
end.
A) Вкторная графика.
B) на распечатанном отсутствует треугольник.
Незачто :3