задача на паскале

[noone]

составить программу на паскале, которая находит периметр
а)прямоугольника,ширина и длина вводится с клавиатуры.
б)треугольника,длины всех сторон вводятся с клавиатуры
в)произвольного четырехугольника,длины всех сторон вводятся с клавиатуры

[Mad_Cat]

 var a,b,c,d:real;
begin
read(a,b,c);
writeln(a+b+c);
read(a,b);
writeln(a+b+a+b);
read(a,b,c,d);
writeln(a+b+c+d);
end.