Var a:string;
begin
read(a);
a:='Современная техногенная цивилизация, помимо увеличения степени бытового комфорта, привела к стремительному ухудшению экологической ситуации в мире. Со временем испорченная цивилизацией экология может привести к катастрофическим последствиям. Рассмотрим кратко основные глобальные экологические проблемы.';
write(a);
end.<span />
program raf105;
var
a,b,c: integer;
begin
write('Введите три числа: ');
readln(a,b,c);
if (a = b) and (b = c) then
begin
a:= a*3;
b:= b*3;
c:= c*3;
end
else if b = c then
begin
a:= a*-1;
b:= b*-1;
c:= c*-1;
end
else
begin
a:= 0;
b:= 0;
c:= 0;
end;
writeln('Вывод: ',a,' ',b,' ',c);
end.
<h3>PascalABC</h3>
Const
e = 0.000001;
var
i, f, f1, thn, t: integer;
s, s1: real;
begin
i := 0;
f1 := 1;
f := 2;
thn := -1;
s := 1;
s1 := 0;
repeat
i := i + 1;
s1 := s;
thn := thn * -3;
s := s + 2 * i / f / thn;
writeln(2 * i, ' ', f, ' ', thn, ' ', s);
t := f1;
f1 := f;
f := f + t
until abs(abs(s1) - abs(s)) < e;
writeln(s);
end.