Free pascal

1 Програма
program plocha;

uses crt;

Var a,b,s:word;

BEGIN
a:=5; b:=8;

a:=5; b:=8; s:=a*b;
Writeln('Plocha = ',s,' KV. CM.');

END.
Вхід: Довжина =5 ширина=8
Вихід: Площа=40

2 програма
Var a, b, c, s:word;

BEGIN
Writeln('Vedit pershe chislo');
Readln(a);
Writeln('Vedit druge chislo');
Readln(b);
Writeln('Vedit trete chislo');
Readln(c);
S:=2*(a*b+b*c+a*c);
writeln('plocha');
writeln(s);
readln;
END.

Перевірка
Вхід 8 9 10
Вихід 484