Superiors3091,DvnStudent015, CutePotato237 ,VVNganster777
мне подходил вот этот :
CutePotato237
program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);
if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;
end.
После do может быть только один оператор или ветвление(if then else)
если необходимо использовать несколько операторов, можно воспользоваться операторными скобками
begin
оператор;
оператор;
end;
1.program prim;
var a,b:integer;
begin
write ('введите расстояние в сантиметрах');
readln(a);
b:=a mod 100;
writeln(b, 'метров');
readln;
end.
3.
Program Task2_2a;
uses WinCrt;
var
n, p, n1 : longint;
begin
write('Введите натуральное число '); readln(n);
n1 := 0;
while n > 0 do
begin
n1 := n1*10 + n mod 10;
n := n div 10
end;
writeln('Число, после перестановки цифр равно ', n1)
end.