С1. Составить алгоритм
и написать программу на вычисление площади или периметра прямоугольника
, при условии, если а < b ,
тогда вычисляем периметр , иначе площадь . Каждую строку программы прокомментировать .
Входные данные а=10 , b=8
помогите решить 9 класс

Более красивый вариант) 

Program N_1;                         //Название программы
Var a,b,c:integer;                   //Переменные
BEGIN
Writeln(Введите длину и ширину прямоугольника);  //Вывести данную строку
readln(a,b);                         //Считать a и b
if athen begin                          //то найти периметр
c:=(a+b)*2;
Writeln(Пириметр= ,c)       //и вывести его
end
else begin                         //Если a>b
c:=a*b;                             //то найти площадь
writeln(Площадь= ,c)       //и вывести ее.
end;
END.