Вот.
program pr;
var s,k,a,i,sr:integer;
begin
s:=0;
k:=100;
a:=100;
for i:=a downto 11 do begin
s:=s+a;
k:=k-1;
a:=a-1;
end;
sr:=sqr(s);
writeln(sr,' ',k);
end.
<em>VAR</em>
<em> s: String;</em>
<em> i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> for i := 1 to Length(s) do </em>
<em> if not((Ord(s[i]) > 47)and(Ord(s[i]) < 58)) then begin</em>
<em> Write(s,' - не является целым число'); Exit; </em>
<em> end;</em>
<em> Write(s,' - целое число'); </em>
<em>END.</em>
Информацию потерять конечно же можно, запросто. Носители
ломаются/теряются, данные стираются, изменяются, записываются новые и тд
(Ярким примером служит нашумевший вирус WannaCrypt или ПетяА). Обидней
всего потерять доступ к данным (например забыть логин/пароль почты). Еще
можно забыть где находится информация