var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
Б
Интересно, что никто и никогда не видел белого слона! Белыми иногда называют очень светлых слонов, в древности считавшихся священными. В некоторых частях света им даже поклонялись.+
Белые слоны считались настолько ценными, что лишь королю было позволительно владеть таким слоном! И это было весьма кстати: окруженные величайшей заботой, белые слоны пользовались всеми дорогостоящими атрибутами роскоши. Они никогда не работали и жили в отдельных помещениях. У них были свои слуги, специально приставленные заботиться о белых слонах, а еда им подавалась зачастую в серебряных кормушках людьми в белых одеждах.
А насчет А я сейчас подумаю
А потом отправлю через комментрии
