Помогите!!!!!!!Даю 31 балл​

<span>22 янв. 2010 г. - России <em>разрешили</em> использовать <em>домен</em> .<em>рф</em>.

+ Домен русски
- Многие устройства не поддерживают данный домен
</span>

Решение смотри во вложении.

Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>

Электронная почта – это возможность отправить другому человеку, независимо от его местонахождения, текстовое сообщение или файл (документ, фотографию и т.п.). Такой способ передачи информации принято называть электронным письмом или e-mail (имэйл), а саму почту – ящиком или электронкой.

Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.