Диалоговые окна и окна папок
Количество инф в первом тексте к=5, во втором к=8, разница 5/8.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.
<span>Var s:string; i:integer; </span>
<span>Begin </span>
<span>Readln(s); i:=length(s); </span>
<span>while (i>0) and (s [ i]=' ') do i:=i-1; </span>
<span>if i=0 then Writeln('слова в строке не обнаружены') </span>
<span>else repeat Write(s[ i]); i:=i-1 until (i=0) or (s[ i]=' '); </span>
<span>End. </span>