PROGRAM WPZNBS;{Program wypisuje pierwszy znak kt¢ry nie jest spacj¥}
USES Crt;
VAR tekst:STRING;
    a:BYTE;
BEGIN
 WRITE('Wprowad« ci¥g znak¢w z kt¢rego zostanie wy˜wietlony piewszy znak nie b©d¥cy spacj¥: ');
 READLN(tekst);
 a:=0;
 REPEAT
  a:=a+1;
 UNTIL tekst[a]<>' ';
 WRITE(tekst[a]);
 READKEY;
 ClrScr;
END.PROGRAM WPZNBS;{Program wypisuje pierwszy znak kt¢ry nie jest spacj¥}
USES Crt;
VAR tekst:STRING;
    a:BYTE;
BEGIN
 WRITE('Wprowad« ci¥g znak¢w z kt¢rego zostanie wy˜wietlony piewszy znak nie b©d¥cy spacj¥: ');
 READLN(tekst);
 a:=0;
 REPEAT
  a:=a+1;
 UNTIL tekst[a]<>' ';
 WRITE(tekst[a]);
 READKEY;
 ClrScr;
END.