uses Crt; var a,b,c : LongInt; begin a:=0; while a < 10 do begin a := a + 1; Write(' ', a); end; Writeln(''); b := 0; repeat b := b + 1;...
program oof; uses Crt; const Imie = 'Maciej'; Var Wynik, dmie, Nazwisko:String; begin write('Jan'); readln; ClrScr;...
Nazwy użytkowników oddziel przecinkami.