var a, b, c: real;
begin
write('Введите стороны>> ');
read(a);
read(b);
readln(c);
if (a = b) and (b = c) then
write('Треугольник равносторонний')
else if (a = b) or (b = c) or (a = c) then
write('Треугольник равнобедренный')
else write('Треугольник разносторонний');
end.
Я надеюсь тебе будет понятно мои каракули
Загадочные знаки на стенах гробниц- это иероглифы
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
160*30=4800 символов
Ответ: ученик получит 4800 символов