Сумма трех чисел - Turbo Pascal

Формулировка задачи:

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

вот примерно прикинул, но без программы, не могу проверить правильность

uses crt;
var
a, b, c ,d: integer
begin 
writeln ('vvedite a');
writeln ('vvedite b');
writeln ('vvedite c');
d:=a+b+c;
wtiteln(d);
readln(d);
end.

Решение задачи: «Сумма трех чисел»

textual
                            Листинг программы 
                        

                            var x,sun,i:integer;
begin
x=0;
for i=1 to 3 do
begin
  readln (x);
  inc (sim,x);
end;
write (sum);
end.
                        

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы