Ваша задача находит периметр треугольника, складывая вводимые длины его сторон.
На экран сначала будет выведен текст "Введите стороны треугольника", а по окончании ввода - строка "P=ххххх", где ххххх - вычисленная сумма трех введенных чисел. Предполагается, что все числа - целые.
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;