Program z1;
var s,k:longint;
Begin
Readln(s);
k:=trunc(sqrt(s));
Writeln(k);
End.
#include <iostream>
using namespace std;
int main(){
int a, s=0;
cin>>a;
for(int i=0; i<5; ++i){
a/=10;
s+=a;
}
cout<<s<<endl;
}
Если требуется прибавить и изначальное число, просто прибавь его к итоговому s.
Program ZADACHA;
var a,b,c,d,k:integer;
begin
c:=0;
k:=0;
d:=0;
repeat
begin
readln(a);
b:=a;
c:=c+1;
if (a<-3)
then
begin
d:=b+a;
k:=k+1;
end;
end;
until c=8;
writeln(d);//ETO SUMMA
writeln(k);//Eto KOLICHESTVO
readln;
end.