Contoh dalam bahasa Pascal While not eof(T) do Begin Readln(T,S);
{"Image DocumentName": "Contoh dalam bahasa Pascal While not eof(T) do Begin Readln(T,S);", "Image ImageDescription": "If IpSem > 3.0 then. Writeln(namamahasiswa); End;", "Image XResolution": "37", "Image YResolution": "37", "Image ResolutionUnit": "Pixels/Centimeter", "Image Software": "SlidePlayer", "Image YCbCrPositioning": "Centered"}