Задачки на Паскале!

[Буня)))]

Надо написать две легеньких задачки на Паскале.
На С знаю как делать, а с Паскалем не дружу )
Help Please !!!))) :) :D

Заранее спасибо :)

Задачка 1:

Дано три числа. Найти и вывести на экран наименьшее число.

Задачка 2:

Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - виводить на екран второе.

[Dosia]

program three_digit;

var
pervoe_chislo,vtoroe_chislo,tretie_chislo:integer;

begin
pervoe_chislo:=5;
vtoroe_chislo:=4;
tretie_chislo:=3;

writeln('zadanie 1');
write('naimenshee chislo = ');
if (pervoe_chislo<vtoroe_chislo) and (pervoe_chislo<tretie_chislo) then
write(pervoe_chislo)
else
if (vtoroe_chislo<pervoe_chislo) and (vtoroe_chislo<tretie_chislo) then
write(vtoroe_chislo) else write(tretie_chislo);

readln;
pervoe_chislo:=5;
vtoroe_chislo:=4;
writeln('zadanie 2');
if (pervoe_chislo>vtoroe_chislo) then writeln(pervoe_chislo) else writeln(vtoroe_chislo);
readln;
end.


Результат работы:

pervoe_chislo=5;
vtoroe_chislo=4;
tretie_chislo=3;

zadanie 1
naimenshee chislo = 3

pervoe_chislo=5;
vtoroe_chislo=4;

zadanie 2
5

pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=3;

zadanie 1
naimenshee chislo = 2

pervoe_chislo=2;
vtoroe_chislo=4;

zadanie 2
4

pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=1;

zadanie 1
naimenshee chislo = 1

pervoe_chislo=3;
vtoroe_chislo=4;

zadanie 2
4

[Буня)))]

Спс большое :)

[Keltos]

Еще так:

Дано три числа. Найти и вывести на экран наименьшее число.

Program One;
var x,y,z: integer;
begin
write('Введите числа:');
read(x,y,z);
if (x<=y) then
if (x<=z) then write(x)
else write(z)
else
if (y<=z) then write(y)
else write(z);
end.

Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - выводить на экран второе

Program Two;
var x,y: integer;
begin
write('Введите числа:');
read(x,y);
if (x>y) then write(x)
else write(y);
end.

[nerezus]

https://forum.antichat.ru/thread122076.html
closed.