Aplicația este accesibilă de pe ecrane late

1
writeln ('lungimea sirului este ', i);
2
end.
3
Program sir;
4
var s:string; i:integer;
5
begin
6
writeln ('scrieti sirul s'); readln (s);
7
i:=length(s);