Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
var
a, b, c, k : integer;
begin
read (a, b, c, k);
if (a mod k <> 0) and (b mod k <> 0) and (c mod k <> 0) then writeln ('Никаких')
else begin
if a mod k = 0 then writeln ('Числа a');
if b mod k = 0 then writeln ('Числа b');
if c mod k = 0 then writeln ('Числа c');
end;
end.
Ну и почему нельзя добавить только картинку, нужно еще писать чегойто...
<span>Uses crt;
var a,b,c:integer;
begin
read(a);
read(b);
read(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
begin
if ((a=b) and (b<>c)) or ((a=c) and (c<>b)) or ((b=c) and (c<>a)) then writeln('Triangle is isosceles');
if (a=b) and (b=c) and (a=c) then writeln('Triangle is equilateral');
if (a<>b) and (a<>c) and (b<>c) then writeln ('Triangle is scalene');
end
else writeln('Triangle is invalid');
end.</span>
<span>В СЛОВЕ МЕГАБАЙТ 64 бита, т. к. каждая буква - 1 байт, а в каждом байте 8 бит</span>