Помогите с Turbo Pascal

А в чем проблема?
Ты не знаешь, как вычислить периметр и площадь?
Или проблема с паскалем?
Что дано?
И вообще : текст в студию!
Только быстрее, а то я спать пойду.
------------------------------
Обижаться на судьбу непродуктивно.
Что ты делал весь день - показывай.
Формулы знаешь площади и периметра?
Пиши.
-------------------------------
Там прямоугольник. Совсем другое дело

"Сынок", это записать можно так:
uses Crt;
var a, b, p, s: real;
Begin
ClrScr;
writeln('Введите стороны прямоугольника');
readln(a, b); {После ввода каждого числа жми Enter}
s:=0; p:=0;
s:=a*b;
p:=(a+b)*2;
writeln('Площадь прямоугольника s=', s:5:2, 'Периметр прямоугольника р=', р: 5:2);
readkey
End.
Все остальное сделай сам, чему-то, наверное, вас в школе учат (хотя бы самостоятельно работать с книгой-учебником) . :-)

Сделай входные переменные a, b, c - стороны треугольника. Дальше просто считаешь периметр и формулу Герона вписываешь
Я что-то зачитался. Если прямоугольник, то все гораздо проще. (a+b)*2 - периметр, a*b - площадь. Считываешь не периметр, а именно a и b. Периметр и площадь уже выводишь. И тип integer лучше взять. А если обязательно real то выводить примерно в формате: s:5:3

"Там прямоугольник. Совсем другое дело"
Ну а прямоугольник это 2 треугольника, нэ?

Program Perimetr_prjamougolnika;
Uses CRT;
Var P,Dlina,shirina,S:real;
Begin
Write ('Введите длину прямоугольника (см) : ');
Read (Dlina);
Write ('Введите ширину прямоугольника (см) : ');
Read (shirina);
P:=(Dlina+shirina)*2;
S:=Dlina*shirina;
Writeln;
Writeln;
Writeln ('Ответ: ');
Writeln;
Write ('Периметр прямоугольника равен: ', P); Write ('(см) ');
Writeln;
Write ('Площадь прямоугольника равна: ', S); Write ('(см^2)');
End.

задали бы мне такую задачу))) , а то двуфмерные массивы с циклами (((