//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a:=ReadInteger;
Println(a>0?a*a:a*a*a*a);
end.
Поочередно удаляем повторяющиеся буквы
НАВВАНУККТЦЙЧТТЧМЦЙЙЦМЙЦКОБПРРПБНГГНХХНЪЪОЬУУФФЙЙЬЧИИЧСНШЩЗЗЩЖЭЭЖШНГККГ
НААНУТЦЙЧЧМЦЦМЙЦКОБППБНННОЬЬЧЧСНШЩЩЖЖШНГГ
ННУТЦЙММЙЦКОББНОСНШШН
УТЦЙЙЦКОНОСНН
УТЦЦКОНОС
УТКОНОС
Задание 1
1.Карандаш
2.Заливка
3.Шрифт
4.Пластик
5.Пипетка
6.Лупа
7.Кисти
Программа для паскаля
program treug;
var a,b,c: integer;
begin
write (' Введите длины сторон ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln (' Треугольник существует')
else writeln (' Треугольник не существует ');
end.
Спроси у учителя и всё будет понятно!