Aplicația este accesibilă de pe ecrane late

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