Question

Napisz procedurę w języku Pascal , która stwierdza która z zadanych jako parametr liczb całkowitych a,b jest wieksza. Wynik wyświetl na ekranie.

Answer 1

var
a,b:integer;
begin
writeln('Podaj a,b: ');
readln(a);
readln(b);
if a>b then  writeln('a jest większe')
else beginif a<b then writeln('b jest większe')
else write('są rózne');
readln;
end;
end.

Answer 2

Program test;
uses crt;
var
a,b:integer;


procedure slaczek(a:integer;b:integer);
begin
   if(a>b) then
   begin
   writeln('liczba a=',a, ' jest wieksza od liczby b=',b);
   end else
   begin
   writeln('liczba a=',a, ' jest mniejsza od liczby b=',b);
   end;
end;

begin
 write('podaj a=');
 readln(a);
 write('podaj b=');
 readln(b);
 slaczek(a,b);
 readln();
end.