Готово :)
..............................
Программа на языке Pascal. Программа получает число из файла input.txt и записывает результат в файл output.txt
var a: real;
f: text;
begin
assign(f,'input.txt');
reset(f);
read(f,a);
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,a/3);
close(f);
end.
Uses crt;
varb,h,S:real;
begin
writeln('Поиск площади треугольника по стороне и высоте');
writeln();
write('Введите длину стороны в основании треугольника - ');
readln(b);
writeln();
write('Введи высоту треугольника - ');
readln(h);
writeln();
S:=(b*h)/2;
writeln('Ответ: ',S);
end.
Var n,a,b,s:integer;
begin
read(n1);
a:=n1 div 10;
b:=n1 mod 10;
s:=a+b;
n:=10*b+a;
writeln(s);
writeln(n);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
procedure F(n: integer);
begin
if n < 6 then
begin
write(n);
F(n * 2);
F(n + 2)
end;
if n < 5 then
begin
write(n + 1);
F(n + 2)
end
end;
begin
var n := ReadInteger;
F(n)
end.