В какие из четырех клеток A, B, C или D можно поставить Робота, чтобы он выполнил алгоритм, записанный ниже, и сделал хотя бы один шаг?
нц пока слева свободно
влево
кц

1.
Program tt;
var  A,B,C,D: Real;
begin      
Writeln ('Введите массу воды в граммах.'); Readln(A);      
Writeln ('Введите массу соли в граммах.'); Readln(B); 
D := B+A;
C := B/A;
Writeln ('Массовая доля соли в раствворе - ',C,'.');
End.    
2.
Program tt;
var  A,B,PL,Per: Real;
begin      
Writeln ('Введите длинну первого катета.'); Readln(A);      
Writeln ('Введите длинну второго катета.'); Readln(B); 
PL := (B*A)/2;
PER := sqrt(B*B+A*A)+A+B;
Writeln ('Площадь - ',PL,'.');
Writeln ('Периметр - ',PER,'.');
End.    

Я исправил ошибки, теперь она работает корректно, но если тебе нужно обязательно использовать if..else, то оставять коммент, я перепишу

#include <iostream>

using namespace std;

int main()

{

 setlocale(0, "Rus");

 int osenka; ;

 cout << "Введите произвольную цифру от 2 до 5: ",

  cin >> osenka;

 if (osenka == 5) // Если введенная цифра равна 5.

  cout << "Вы получили оценку «5» \n";

 if (osenka == 4) //Если введенная цифра равна 4

  cout << "Вы получили оценку «4». \n";

 if (osenka == 3) //Если введенная цифра равна 3

  cout << "Вы получили оценку «3». \n";

 if (osenka == 2)

  cout << "Вы получили оценку «2».\n";

 return 0;

}