Флажок
идти 14 шагов , показаться
сказать : Ахх какой вкуснинький 3 секунды .
применить костюм на 1.
ЗАЯЦ
идти 7 шагов , показаться .
ждать 3 секунды
сказать: Не ешь меня , я ещё молодой .
спрятаться.
Закончить скрипт.:-D
Смотри если ты пишешь консольное приложение можешь использовать ASCII, если форма тогда ищи фреймворки
Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.
Смысл XXI века х) Или периферия, но не думаю) А вообще, это компоненты ПК, с помощью которых производится ввод и вывод информации =)