••-- •-•• •• •-•- (Юлия)
-- •- - • -- •- - •• -•- •- (математика)
Var
a,b,c: integer;
Begin
writeln('введите первое число');
read(a);
writeln('введите второе чмсло');
read(b);
if a and b>0 then
c:= a+b;
writeln(' сумма чисел ', c);
else writeln(' условие не выполняется');
end.
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('угол при основании: ',(180-ReadReal('введите угол при верш:'))/2);
end.