Question

Potrzebuję program, który wybiera największą liczbę z 3. Napisany w PASCAL-u. Nie wiem co zrobiłem źle, narazie mam tylko coś takiego:

program Zad;
Uses CRT;
var A,B,C : Integer;
begin
clrscr;
Write('Podaj wartość 1 liczby i naciśnij Enter');
readln(A);
Write('Podaj wartość 2 liczby i naciśnij Enter');
readln(B);
Write('Podaj wartość 3 liczby i naciśnij Enter');
readln(C);
if A>B then
begin if A>C then
Writeln('Największą liczbą jest: ', A);
Else if B>A then
begin if B>C then
Writeln('Największą liczbą jest: ', B);
Else if C>B then
begin if C>A then
Writeln('Największą liczbą jest: ', C);
end.
end.
end.
end.
end.
end.
end.
end.
end.

Answer 1

end masz w złym momencie 
Spójrz jeśli 1 warunek będzie niespełniony program przeskakuje na sam koniec. 

 

 po za tym można łączyć warunki  w pascalu (and)

    if (A>B) and (A>C) then  Writeln('Największą liczbą jest: ', A);

co prawda nie upraszcza to ale kod jest czytelniejszy

Answer 2

program nazwa;
uses crt;
var
        a,b,c:integer;

begin
clrscr;
        writeln('Podaj liczbe 1: ');
        readln(a);

        writeln('Podaj liczbe 2: ');
        readln(b);

        writeln('Podaj liczbe 3: ');
        readln(c);

        if ((a>b) and (a>c)) then
                writeln('Najwieksza liczba to: ',a);

        if ((b>a) and (b>c)) then
                writeln('Najwieksza liczba to: ',b);

        if ((c>a) and (c>b)) then
                writeln('Najwieksza liczba to: ',c);

readln;
end.