Многозадачная программа читает строку и число. Затем в переменную s1 она записывает строку, умноженную на число, а в переменную s2 — «склеенные» строку и число (пример — "мир11"). Если строка s1 или строка s2 чётной длины, то программа выдаёт "Получилось!". Напиши такую же программу.

Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

 

или

 

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы