Все, что могу, см. в приложении.
Даны ДВА числа, а найти минимум из ТРЕХ... не совсем понял
программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer;
begin
if a<b then
M := a
else
M := b;
end;
var a, b, c : integer;
begin
write('A: '); readln(a);
write('B: '); readln(b);
write('C: '); readln(c);
write('Minimum: ', m(m(a,b),c));
end.
1 1 4
2 вообще-то все отсносятся к заразервированным
3 3
4 1
Begin
for var i:=1 to 21 do
if (i mod 2 = 1) then
print(i);
end.
begin
for var i:=60 downto 10 do
if (i mod 2 = 0) then
writeln(i)
end.
var a,b: integer;
begin
readln(a,b);
for var i:=b downto a do
print(i*i*i);
end.
Запятые вокруг переменных во Writeln расставь =)
Строки в апострофах, переменные - без них, а всё это дело разделяется запятыми