Var
a,b,c:integer;
begin
readln(a,b);
If (a mod 2 = 0) and (b mod 2 = 0) then
begin
c:=a+b;
writeln('Сумма= ',c);
end
else
if (a mod 2 = 1)and (b mod 2 =1)the
begin
c:=a*b;
writeln('Произведение= ',c);
end
else
<span>begin
a:=a*5;
b:=b*5;
writeln('A=',a,' B= ',b);
end;end.<span>
</span></span>
Если рулон обоев по 2.5 метров, то можно сделать 8 рулонов на четыре пятиметровые стены в длинну и 2.5 метров в высоту
Шалтай-Болтай Сидел на стене. Шалтай-Болтай Свалилс<u><em>Я</em></u><em></em> во сне. Вс<em><u>Я</u></em><em><u /></em><u /> Королевска<em><u>Я</u></em> Конница, Вс<em><u>Я</u></em> королевска<u><em>Я</em></u> рать Не может Болта<em><u>Я</u></em>, Шалта<em><u>Я</u></em><em><u /></em><u />-Болта<u><em>Я</em></u>, Болта<u><em>Я</em></u>-Шалта<em><u>Я</u></em><u><em /></u> собрать!
10 букв я