Function to_base(n: integer; base: integer): integer;
begin
if n = 0 then
to_base := 0
else
to_base := (n mod base) + 10 * to_base(n div base, base);
end;
var
n: integer;
begin
readln(n);
writeln(to_base(n, 3));
writeln(to_base(n, 5));
<span>end.</span>
var i,s:integer;
begin
while i<>-5 do begin
readln(i);
if i mod 2=0 then s:=s+1;
end;
writeln(s);
end.
Если тебе надо убрать столько функций, попробуй использовать цикл
for или while; а вместо * нужно вставить вроде бы кординаты, точно не помню.
Var x,b,c : real; begin writeln('Введите B:');readln(b);writeln('Введите C:');readln(c);x:=-b/c;writeln('x<',x);end.