Var
a,b:integer;
begin
Write('Введите два натуральных числа '); Readln(a,b);
while a<>b do
if a > b then a := a - b
else b := b - a;
Writeln('НОД=',a)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа 28 16
НОД=4
CLS
INPUT "a,b = ", a, b
IF a > b THEN
PRINT a
ELSE
PRINT b
END IF
---------------------
CLS
INPUT "a,b = ", a, b
c = SQR(a * a + b * b)
p = a + b + c
PRINT "P = "; p
Паскаль пишется как Pascal.
var
a, sum : integer;
begin
read (a);
sum := 0;
while (sum <= 10) and (a > 0) do
begin
sum := sum + a mod 10;
a := a div 10;
end;
if sum > 10 then write ('Yes') else write ('No');
end.
Var A: array[1..15] of integer;
.........................................
1580kilobautпо идее должно быть до 1580 килобайтов