1 lygis | 2 pamokėlė | 8. Skaičiai

var
    a, b, c:integer;
begin
    WriteLn('Įveskite a reikšmę');
    readln(a);
    writeln('Įveskite b reikšmę');
    readln(b);
    writeln('Įveskite c reikšmę');
    readln(c);

    if a mod 3 = 0 then
        writeln('Atsakymas: ', a)
    else if b mod 3 = 0 then
        writeln('Atsakymas: ', b)
    else if c mod 3 = 0 then
        writeln('Atsakymas: ', c)
    else
        writeln('Atsakymas: Nėra');
end.