Процедура

[lavrentev]

Всем привет)
Не могу разобраться в чем ошибка
Задача: Нужно написать программу по нахождению периметр треугольника (p=a+b+c), использую ПРОЦЕДУРЫ

program abc;
var a,b,c,p:integer;
procedure perimetr (x,y,z:integer; var p: integer);
begin 
p:=x+y+z;
end;
begin 
writeln ('vvedite storoni treygolnika:');
readln (a,b,c);
perimetr (a,b,c,p);
writeln ('perimetr raven',p);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[newerow1989]

У меня все работает!

[digitalis]

lavrentev, наверно, работаешь с исправной программой неправильно. На запрос о вводе длины сторон надо вводить в одну строку, разделяя пробелами :
12 345 654
Как-то так.