Zadanie 1 Napisz program, w którym użytkownik wprowadzi dowolny napis.Zadaniem programu jest wypisanie na ekranie informacji ile znaków jest w wprowadzonym tekście. zadanie musi byc wykonane w pascalu
vegixa
Program kat; uses CRT; var tekst:string; begin Clrscr; Writeln('Wpisz dowolny tekst:'); readln(tekst); Writeln; Writeln('Znakow ze wprowadzonym tekscie: ',length(tekst)); readln; end.
uses CRT;
var
tekst:string;
begin
Clrscr;
Writeln('Wpisz dowolny tekst:');
readln(tekst);
Writeln;
Writeln('Znakow ze wprowadzonym tekscie: ',length(tekst));
readln;
end.