<span>Вроде бы</span><span>4)</span>. Мне так кажется
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Ответ:
Логическое выражение
Объяснение:
Логическое выражние, булевые, boolean. Все они имеют 2 значения "Истина" = 1, True и "Ложь" = 0, False
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>