Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
Первый номер: 1-папка 2-файл 3-файл Второй номер: 1- текстовые редакторы 2- браузеры
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
Знать команды для начала, "поднятия" пера, команду для того,чтобы "опустить" перо. и вписывать потом точки.