Ровно 13 строк:
program Geron;
var ab,bc,ca,p: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите сторону треугольника AB: ');
readln(ab);
write('Введите сторону треугольника BC: ');
readln(bc);
write('Введите сторону треугольника CA: ');
readln(ca);
p:=(ab+bc+ca)/2;
writeln('Площадь треугольника равна ',sqrt(p*(p-ab)*(p-bc)*(p-ca)):0:3)
end.
1253(8) = 001 010 101 011(2)
Количество значащих нулей = 4
Program n1;
var
x:integer;
begin
writeln('Введите число'); readln(x);
if (x mod 4=0) then writeln('Является') else writeln('Не является');
end.
program n2;
var
a,b:integer;
begin
writeln('Введите первое число'); readln(a);
writeln('Введите второе число'); readln(b);
if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2);
end.
Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
# Python 3.X
from math import ceil
n, m = [int(input(x + ' = ')) for x in ['n', 'm']]
print('Ответ:', ceil(m / n))