Matematické Fórum

Zdravím, chtěla bych se zeptat, jak mám zkrátit tenhle zápis. Chci aby se mi vypsala celková částka nákladů + který z nich byl nejvyšší a který nejnižší. Vím, že to mám udělaný špatně, ale vypisuje mi to celkovou částku i nejvyšší náklad. Ale nemůžu přijít na to, jak mám udělat aby mi to vypsalo i tu nejnižší. Vím, že se to celý dělá podle min, max...ale nevim kam to mám šoupnout, protože jsem s tim ještě nepracovala. Nebo jestli to jde nějak ještě tim způsobem, jako to mám tady.


uses
 
var
    i1: integer;
    i2: integer;
    i3: integer;
    i4: integer;
begin
    clrscr;
    write('Zadejte naklady za 1. ctvrtleti:=  ');
    readln(i1);
   {takhle jsem pokračovala až do i4}

    write('Celkove naklady za 1. rok cini ',i1+i2+i3+i4,'Kc');
    readln();

{Tady jsem začla porovnávat, pak jsem tu ještě měla pro případ, kdyby se to rovnalo, ale myslím, že to sem nemusim dávat celý, že pochopíte, jakym způsobem jsem se to pokusila vytvořit}

    if(i1>i2) or (i1>i3) or (i1>i4) then
        begin
            write('Naklady za 1. ctvrtleti byly nejvyssi. Cinily ',i1,'Kc');
            readln(i1);
        end

    if(i1>i2) or (i1>i3) or (i1>i4) then
        begin
            write('Naklady za 1. ctvrtleti byly nejvyssi. Cinily ',i1,'Kc');
            readln(i1);
        end
    else
    if(i3>i1) or (i3>i2) or (i3>i4) then
        begin
            write('Naklady za 3. ctvrtleti byly nejvyssi. Cinily ',i3,'Kc');
            readln(i3);
        end
    else
    if(i4>i1) or (i4>i2) or (i4>i3) then
        begin
            write('Naklady za 4. ctvrtleti byly nejvyssi. Cinily ',i4,'Kc');
            readln(i4);
        end

end.