Даны стороны прямоугольника a и b. найдите его площадь s=a*b и периметр p=2*(a+b входные данные: ввести два числа a и b (1< =a, b< =100) выходные данные: вывести два числа через один пробел площадь и периметр прямоугольника.

Uses crt;   var a, b, s, p: integer; begin write('a='); readln(a); write('b='); readln(b); s: =a*b; p: =2*(a+b); write('s=',s,' ','p=',p); end. p.s.где мы выводим на экран значения площади,там после второй s запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! спрашивайте,если что не понятно!

Если будут вопросы или что-то нужно изменить пиши. const n=10; var a: array [1..n] of integer; i, s1,s2: integer; begin for i : = 1 to n do begin a[i] : = random(100); write(a[i],' ');   end; for i: =1 to n do      if i< (n/2) then s1: =s1+a[i] else s2: =s2+a[i];   writeln; if s1< > s2 then if s1< s2     then   write (s1,'< ',s2)   else       write (s1,'> ',s2)                            else   write (s1,'=',s2) end.

1)95877=10111011010000 101  решение: 95877/2= 47938(ост1)47938/2=23968(ост0) 23968/2=11984(ост1) 11984/2=5992(ост0) 5992/2=2996(ост0) 2996/2=1498(ост0) 1498/2=749(ост0) 749/2=374(ост1) 374/2=187(ост0)187 /2=93(ост1) 93/2=46(ост1) 46/2=23(ост0)23/2=11(ост1) 11/2=5(ост1) 5/2=2(ост1) 2/2=1(ост0) 1 2)147353=21111010112 решение : 147353/3=49117(ост2) 49117/3=16372(ост1)16372/3=5457(ост1) 5457/3=1819(ост0)1819/3=606(ост1) 606/3=202(ост0) 202/3=67(ост1) 67/3=22(ост1) 22/3=7(ост1)7/3=2(ост1) 2 3)94649=10111000110111001 решение: 94649/2=47324(ост1) 47324/2=23662 (ост0)23662/2=11831 (ост0)11831/2=5915 (ост1)5915/2=2957 (ост1)2957/2=1478 (ост1)1478/2=739 (ост0) 739/2=369 (ост1) 369/2=184(ост1) 184/2=92(ост0) 92/2=46(ост0) 46/2=23(ост0) 23/2=11(ост1) 11/2=5(ост1) 5/2=2(ост1) 2/2=1(ост0)1