Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.
Readln(n);
for i:=2 to n do
if n mod i=0 then
writeln(i);
break;
end.
<span>Sqr(trunc(4.95)) = 16
Round(trunc(3.5)+0.7) = 4
Sqrt(sqr(16)) = 16
Sqr(5-abs(-5))
= 0</span>
Полагаю, печатная машинка (телеграф? факс?), а вообще, он ещё функции граммофона, диктофона и телефона объединил:) Ну... О плите и пылесосе промолчу, ибо юмор