Program p_1;
Uses Crt;
var
n1,n2,n3, max: integer;
begin
write('Введите 1 число: ');
readln(n1);
write('Введите 2 число: ');
readln(n2);
write('Введите 3 число: ');
readln(n3);
max:=n1;
if n1<n2 then
max:=n2;
if n3>n2 then
max:=n3;
writeln('Наибольшее число: ',max);
readln;
end.
Числовые, текстовые, денежные, дата и т. д
Procedure TForm1.Button1Click(Sender: TObject);
var
i, k: integer;
s: string;
begin
k := 0;
i := 1;
while k <> 8 do
begin
if (i mod 7 = 0) then
begin
s := s + IntToStr(i) + #13;
Inc(k);
end;
Inc(i);
end;
ShowMessage(s);
end;