Написать программу нахождения периметра  параллелограмма  по известным  сторонам  a  и  m  (a  и  m  — целые числа, вводимые с клавиатуры)​

var a,m,p: integer;

begin

readln(a,m);

p: =(a+m)*2;

writeln(p);

end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (so,se): =(0,0);   readseqintegerwhile(t-> t> 0).foreach(t-> if t.isodd then so+=t else se+=t);   write('сумма четных ',se,' ');   if se> so then write('> ')   else       if se=so then write('=')       else write('< ');   writeln(' суммы нечетных ',so) end. пример 3245 6774 23241 5645 967 32234 123 65 2134 0 сумма четных 41142 > суммы нечетных 33286 программа считывает данные, пока они являются натуральными числами.

Использовать рисователь алг робот нач в точку (100,100) кисть (голубой) залить (200,500) линия в точку (300,100) линия в точку (300,200) линия в точку (100,200) линия в точку (100,100) в точку (70,200) линия в точку (330,200) линия в точку (330,430) линия в точку (70,430) линия в точку (70,200) кисть (синий) залить (200,300) в точку (70,220) линия в точку (20, 300) линия в точку (20,340) линия в точку (70,260) в точку (330,230) линия в точку (380,60) линия в точку (380,110) линия в точку (330,260) прямоугольник (130,130,160,160) прямоугольник (240,130,270,160) прямоугольник (160,175,235,190) прямоугольник (110,430,170,460) прямоугольник (255,450,310,460) прямоугольник (255,430,310,460) кон