Лінійні алгоритми

1)Складіть програму обчислення периметра прямокутника P=(a+b)*2.

program P1;
uses crt;
Var a,b,p: real;
BEGIN
Writeln('a,b,p:');
Writeln('a(sm)->2.5');
readln(a);
Writeln('b(sm)->3.5');
readln(b);
p:= (a+b)*2;
Writeln ('p=',p:1:2 ,'sm.');






2)Складіть програму обчислення площі прямокутника (S=a*b).
program Plosa;
uses crt;
var a,b,s: word;
BEGIN
a:=5;  b:=8; s:=a*b;
writeln('Plosa=',s,'кв. см.');
END.
...............................
Вхід a:=5; b:=8;
Вихід 40
Вхід a:= 4; b:= 5
Вихід 20
Вхід a:= 5; b:= 5
Вихід 25



3)Складіть програму обчислення площі поверхні паралелепіпеда (S=2*(a*b+b*c+a*c)).

program poverhnya_paraieiepipeda;
uses crt;
Var a,b,c,s: word;
BEGIN
a:=5;b:=8; c:=6; s:= a*b*c;
writeln (' poverhya paralelepipeda =',s,'kv.sm.');
END.
Вхід a:=5;b:=8; c:=6; s:= a*b*c;
Вихід 240
Вхід a:=7;b:=8; c:=5; s:= a*b*c;
Вихід 280


4)Складіть програму обчислення площі прямокутника (S=a*b).
program pramokytnik ;
uses crt;
Var a,b,s:word;
BEGIN
 a:= 5; b:= 8; s:= a*b;
 Writeln('Plosha =',s,'kv.sm.');
END.
Вхід a:= 5; b:= 8; s:= a*b;
Вихід
Вхід  a:= 5; b:= 6; s:= a*b;
Вихід 30