правильно или нет

[FreeZZZ]

Мне надо сделать процедуру без параметров вот по этой задачи
Задача №15
Напишите программу вычисления суммы модулей трёх вещественных чисел...
Procedure PET;
var a,b,c,S:real:
begin
S:=abs(a)+abs(b)+abs(c);
end;
Правильно или нет помогите исправить

[FreeZZZ]

помогите ПлиЗЗЗ

[alex_fcsm]

Сообщение от FreeZZZ

Мне надо сделать процедуру без параметров вот по этой задачи
Задача №15
Напишите программу вычисления суммы модулей трёх вещественных чисел...
Procedure PET;
var a,b,c,S:real:
begin
S:=abs(a)+abs(b)+abs(c);
end;
Правильно или нет помогите исправить

Считается сумма модулей 3 чисел а b с, только проинициализируйте их
readln(a) или a:=random(20)

[Askar_g]

Procedure PET;
var a,b,c,S:real:
begin
writeln('Введите А, В и С');
readln(a,b,c);
S:=abs(a)+abs(b)+abs(c);
write(S); {Вывод результата}
end;

[FreeZZZ]

Procedure PET;
var a,b,c,S:real:
begin
readln(a)
S:=abs(a)+abs(b)+abs(c);
end;
Вот так

[alex_fcsm]

Procedure PET;
var a,b,c,S:real:
begin
readln(a);
readln(b);
readln(c);
S:=abs(a)+abs(b)+abs(c);
write(s);
end;

[FreeZZZ]

Procedure PET;
var a,b,c,S:real;
begin
readln(a);
readln(b);
readln(c);
S:=abs(a)+abs(b)+abs(c);
write(s);
end;
Вот это правильно???

[puporev]

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

uses crt;
var a,b,c,S:real;
Procedure PET;
begin
S:=abs(a)+abs(b)+abs(c);
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
PET;
write('S=',S:0:2);
readln
end.

[FreeZZZ]

Это всё не правильно, я относил эту работу учителю и он сказал это не правильно!! а как всё таки правильно

[puporev]

К сожалению как надо учителю, знает только учитель, а умом они обычно не блещут, почему и не знают школьники программирование. Здесь даже не знаю что еще предложить.