Uses crt;
Type TRozmiary = (Bytes,KiloBytes,MegaBytes,GigaBytes);
function Zamien (Wartosc Real; Z, Na : TRozmiary);
var WspZ,WspNa : Real;
begin
case Z of
Bytes : WspZ := 1;
KiloBytes : WspZ := 1024;
MegaBytes: WspZ := 1024*1024;
GigaBytes : WspZ := 1024*1024*1024
end;

case Na of
Bytes : WspNa := 1;
KiloBytes : WspNa := 1024;
MegaBytes:WspNa := 1024*1024;
GigaBytes : WspNa := 1024*1024*1024
end;
Zamien:= (WspZ/WspNa) *Wartosc
end;

Const Liczba Real = 512;
begin
ClrScr; {Zmiana z Gigabajtów na kolejno: Bajty,KiloBajty i MegaBajty}
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba, GigaBytes,Bytes) :0:0,' B' );
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba, GigaBytes,KiloBytes) :0:0,' KB' );
Writeln(Liczba:0:0,' GB = ',Zamien(Liczba, GigaBytes,MegaBytes) :0:0,' MB' );

Writeln; {Zmiana z Bajtów na kolejno : KiloBajty,MegaBajty i gigaBajty}
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,KiloBytes) :0:20,' KB' );
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,MegaBytes) :0:20,' MB' );
Writeln(Liczba:0:0,' B = ',Zamien(Liczba,Bytes,GigaBytes) :0:20,' GB' );
Readln
End.