Простая задача по Delphi

[loky007]

Помогите завтра зачет.
нужно написать задачу.
Введите 2 числа если они равны сложить их,и результат на экран.

[MyLastHit]

Помогите завтра зачет.
нужно написать задачу.
Введите 2 числа если они равны сложить их,и результат на экран.

Ты не сдашь зачет, если даже такого элементарного не сможешь сделать.

if strtofloat(Edit1.text)=strtofloat(Edit1.text) then
Edit3.text:=floattostr(strtofloat(Edit1.text)+strtofloat(Edit1.text));

[loky007]

Не я сдаю а девочка
Помощи попросила а я вообще в глаза его не когда не видел
Спасибо за оперативную помощь!

[Donatello]

var
real: x,y,z;
begin
write('vvedite 2 4usla')
readln(x);
readln(y);
if ( x = y ) // давно неписал на делфи не помню какие сравнительные знаки
 z := x + y;
 writeln(z:10);
   else
     writeln('4isla ne ravni');
writeln;
end.

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

[MyLastHit]

Автор просил на Delphi, а не на Pascal.

[loky007]

Она не знает почему у неё постоянно выдает ошибки как это все скампилить ((

[loky007]

Не получается объектное делфи не знает что и куда вставлять.

[Donatello]

MyLastHit ну малоли, вдруг подразумевался именно паскаль. Ведь как автор признался он от програмирования далек(дальше чем я) а девушка могла и не допонять раз тоже написать не может такое простенькое.

[KIRrus]

Помогите решить задачу завтра защита
Дана матрица А(4х5). Найти минимальный элемент каждого столбца матрицы А. Полученный элемент расположить в порядке убывания.

[KIRrus]

Помогите решить задачу завтра защита
Дана матрица А(4х5). Найти минимальный элемент каждого столбца матрицы А. Полученный элемент расположить в порядке убывания.