Дана сторона равностороннего треугольника составьте программу для вычисления его периметра и площади (Паскаль)

var a, b:integer;

begin

writeln ('Введите стороны a и b') ;

writeln ('Введите сторону a') ;

readln (a) ;

writeln ('Введите сторону b') ;

readln (b) ;

writeln;

writeln ('Периметр = ', (a+b) * 2) ;

writeln ('Площадь = ', a*b) ;

readln;

end.