Atividade 3

1ª
program ji;
var num1,num2:interger;
impar,par:string;
Begin
Readln(num1);
Readln(num2);
If (num1>num2) Then
Writeln (num1);
Else
If(num2>num1) Then
Writeln (num2);
If (num1 MOD 2) = 0 Then
Writeln ('Par');
Else
Writeln ('Impar');
End.

2ª
program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if (5MOD 2= 0) then
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (8);
end;
end.
A Resposta do algoritmo será 8''

3ª
program exemplo;
var val, num: integer;
begin
___ val:=5;
___ num:=8;
____if(5 >=1 E 5<=8) then
_____begin
_______write (val);
_____end;
____else
_____begin
_______write (8);
_____end;
end.